Hoi Karl-Heinz
Jetzt funktioniert es super.
Ich hatte anstelle von Tabelle1, den Blattname (Test.xlsm) verwendet.
Das mit dem zweiten Wert habe ich auch korrigiert.
oMe.Cells(iZeile, 2) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B5"))
oMe.Cells(iZeile, 3) = GetValue(sDateiPfad, oDatei.Name, sBlatt, Range("B13"))
Ich werde die auszulesenden Zellen noch auf die restlichen 17 Zeilen einfügen und dann kann ich dir ein Feedback geben ob das jetzt schneller läuft.
|