Office: Wert aus anderer Tabelle per VBA auslesen und in aktuelle Tabelle einfügen

Hallo zusammen,

ich bin leider VBA-technisch äußerst ungebildet und habe zu meinem Problem schon eine ganze Weile hier im Forum gesucht, aber leider nichts gefunden.
Folgendes möchte ich gerne erreichen:

Ich habe 2 Dateien "WB_1" und "WB_2". In WB_2 benötige ich Daten aus WB_1, um dort dann damit weiter zu rechnen.
Da es sich um eine sehr große Datenmenge handelt, möchte ich die Tabellen nicht verknüpfen (zuviel Speicherkapaziät), sondern mir im Prinzip nur den Wert aus der Tabelle 1 auslesen und in die Tabelle 2 eintragen.
Innerhalb eines Workbooks würde ich das lösen über

Code:

Ich weiß nur leider nicht, wie ich das über zwei Dateien bewerkstelligen kann.

Könnt Ihr mir helfen?
Schonmal danke und viele Grüße
Möhre

:)

 

Hi Möhre!
Hier ein Code-Frakment, das etwas in die Datei kopiert, in der das Makro steht:
Code:

Ich freue mich immer über Rückmeldungen.
Grüße, Ulrich

 

Hi,
zum Beispiel so:

Code:

 

Hallo Ihr beiden,

der Code von Ulrich funktioniert prima, vielen Dank!
Könntest Du mir noch verraten, was die Codezeilen
"Set WbDatei1 = Nothing" bewirkt?

Der Code von Juntti funktioniert leider nicht. Dort bekomme ich die Fehlermeldung "Index außerhalb des gültigen Bereichs".

Viele Grüße
Möhre

 

Hi Möhre!
Ganz genau weiß ich es auch nicht.
Auf jeden Fall wird der Inhalt der Variabele gelöscht und eventuell auch Speicherplatz freigegeben (z.B. bei Datenfeldern).
Ich habe gelesen, dass es Situationen geben kann, in denen das fehlende "set ... = nothing" zur Beeinträchtigung des Programmablaufs führen kann, daher habe ich mir angewöhnt, wenn ich den Inhalt nicht mehr benötige zu "entsetten".

Grüße, Ulrich

 

kann daran liegen, dass ich mich verschrieben hab (WorksheetsSheets). aber wenn die Variante von losgehts funktioniert, ist es ja auch egal *tongue.gif*

 

Hi Möhre, hi Ulrich,

...genau so ist es!

Es handelt sich hier um ein Objekt, das einen Speicherplatz "blockiert". Durch die Anweisung "= Nothing" wird das Objekt vollständig entladen, also die Verbindung zu der Objektvariablen "aufgehoben"...also aus dem Speicher entfernt...*wink.gif*

Nur als kleiner Hinweis...

 

Hallo zusammen,

@ Ulrich & insbesondere Horst: Danke für die Aufklärung, wieder was gelernt *top

@Juntti: An der falschen Schreibweise lag's nicht, ich hab Deinen Code nicht kopiert, sondern neu geschrieben. Aber der von Ulrich funktionackelt ja, insofern... *wink.gif*

 

Hallo,

ich bin ja verdammt glücklich euren thread gefunden zu haben *Smilie

noch 2 fragen zum Code von losgehts:
kann ich das Excelworkbook auch readonly öffnen?
kann ich es auch "unsichtbar" öffnen? - bei mir geht bei der Zeile immer eine neue Excel Applikation auf. Ich will ja aber nur die Werte daraus lesen und es dann wieder schließen. Der Nutzer muß also die geöffnete Datei nicht sehen.


Danke

 

Hi Serdna!
zu Deiner ersten Frage: Ja, Du kannst sie "readonly öffnen" genau so wie in meinem obigen code *wink.gif* .

Hier "unsichtbar" Code:

WEnn Du es Schritt für Schritt (F8) ausführst, siehst Du wie sie in der Taskleiste verschwindet.

Freue mich über eine Rückmeldung.

Grüße, Ulrich

 

ups, habe ich wohl übersehen *wink.gif*

Danke für die Antwort.

ich werde allerdings immernoch nach "Wollen Sie die Änderrungen ... speichern" gefragt, obwohl die Datei readonly geöffnet wird und keine Daten geändert werden.
Die Datei besitzt allerdings Makros von denen ich nicht weiß was sie machen.

Außerdem stört mich noch, das ich die geöffnete Exceldatei trotzdem erst sehe bevor sie ausgeblendet wird.

Kann ich nicht einfach ohne die Datei direkt mit Excel zu öffnen einfach nur die Daten auslesen?

 

Hi!
Das mit dem Auslesen "ohne zu öffnen" halte ich für schwierig. Hast Du mal eine Excel-Datei im Editor oder ähnlichem angeschaut? Ich denke ohne Excel hast Du keine Chance mit wenig Programmieraufwand gezielt an Daten heranzukommen.

Für das Schließen ohne Nachfrage ob die Änderung gespeichert werden soll und gegen das Ausführen von Makros in der zu öffnenden Datei würde ich folgendes unternehmen: Code:

Für das "kurzzeitige" Problem mit der Taskleiste habe ich leider keine Lösungsidee *frown.gif* . Ich hoffe, hier wissen andere mehr!

Grüße, Ulrich

 

Das Problem ist nicht die Taskleiste, sondern das sich ein neues Excel Fenster öffnet und das andere verdeckt. Das Ausblenden funktioniert erst nach etwa 5-6 Sekunden, also wenn die Datei fertig geöffnet ist.
Es würde schon reichen wenn das Fenster im Hintergrund geöffnet würde.

 

hi all
ich hatte mal sowas, und eine Lösung ohne die Dateien zu öffnen
vielleicht kann es wer ja brauchen *Smilie

in der Mappe Zieltabelle ->das Makro einlesen Starten

und die Zipdatei im Lw C: extrahieren!

oder zuerst in der Mappe Zieldatei den Pfad anpassen
hier mal ein Ausschnitt

Code:

 

Hi Chris!
Das hört sich ja interessant an, aber verstehen tu` ich nur Bahnhof:
Kann es sein, dass Du einen Anhang vergessen hast?


Grüße, Ulrich
PS.: Wiso die Datei in diesem Ordner entpacken, wird eine "Installationsroutine" gestartet?