Wie lese ich einen Wert aus einer anderen Datei ein, um diesen als Variable in VBA zu verwenden?

Question

Hallo,

ich lese sämtliche Dateien in einem Ordner des file-Systems aus

...
Dim objFolder As Object ' komplettes Verzeichnis
Dim objFileWithFolder As Object ' Verzeichnis + Dateiname + extension
...

For Each objFileWithFolder In objFolder.Files
For intRowFormula = 1 To 75

Anstelle der 75 möchte ich bei jeder gefundenen Datei einen Wert auslesen, der mir die tatsächlich benötigte Anzahl für die Schleife liefert. Dieser Wert steht immer in der Zelle "G2".

Ich habe es versucht mit
objFileWithFolder.Sheets("Testfälle").Range("G2").Value
aber das haut nicht hin.

Kann mir jemand helfen? Wäre schön.

Danke, Gruß
Jojo

Answer 1

hi Jojo ^^

anstatt der 75

ExecuteExcel4Macro ("'C:\Temp\" & "[" & DateiName & "]Tabelle1" & "'!" & Range("A2").Address(, , xlR1C1))

anzupassen waeren

"'C:\Temp\"
DateiName
Tabelle1
Range("A2")

gruss nighty

Answer 2

Hallo nighty,

perfekt - ich bin begeistert.

Vielen Dank
Jojo