Verschieden Excel-Dateien müssen in ein neues Format übertragen werden.
Zum Abgleich sollen via xverweis Daten aus einer Quelle in die aktuelle Datei (wo das VBA-Script liegt) geschrieben werden.
(Das Zeugs kopiere ich dann in eine neu erzeugte Datei, damit die Verweise verschwinden.)
- Öffnen der Quelldatei via Application.GetopenFilname() und Workbooks.Open()
- ich habe nun den Dateinamen der Quelle.
- den schreibe ich in eine Zelle, sagen wir $A$1. Fein.
Wie kann ich nun aus dieser Zelle mein xverweis "füttern"? Der Name des Arbeitsblattes ist unbekannt, es ist aber immer das erste Arbeitsblatt.
In die zu füllenden Zellen sollte so was stehen wie:
=xverweis(A5; WertAus($A$1)+Worksheets(1)!$C:$C;WertAus($A$1)+Worksheets(1)!$E:$E; "Nichts gefunden";0;1)
Sorry, ich kann's nicht besser beschreiben - sonst hätte mir google und dieses Forum sicher schon eine Antwort geliefert! :-)
Danke für jeden Input!
Maik