21.12.2021, 14:09
Hallo zusammen,
ich möchte per VBA einen externen Zellenbezug als Formel in eine Zelle schreiben.
Die externe Datei steht ab Zelle B2 untereinander (z.B.: 44586_39_TEST_D_Os.xlsm).
Erzeugen möchte ich folgende Formel per VBA:
='X:\Ankdg\Erledigt\[44586_39_TEST_D_Os.xlsm]ETK'!$C$6
Mein Code ...
Sub ZellelesenZwei()
'** Angaben zur auszulesenden Zelle
pfad = "X:\Ankdg\Erledigt\["
blatt1 = "]Info'"
bezug1 = "$E$11"
For i = 2 To Range("K1")
Quelle = Range("B" & i)
Range("C" & i).FormulaLocal = "=" & pfad & Quelle & blatt1 & bezug1
Next i
End Sub
gibt mir die Fehlermeldung
"Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
aus
Was mache ich falsch?
Vielen Dank für Eure Hilfe!
ich möchte per VBA einen externen Zellenbezug als Formel in eine Zelle schreiben.
Die externe Datei steht ab Zelle B2 untereinander (z.B.: 44586_39_TEST_D_Os.xlsm).
Erzeugen möchte ich folgende Formel per VBA:
='X:\Ankdg\Erledigt\[44586_39_TEST_D_Os.xlsm]ETK'!$C$6
Mein Code ...
Sub ZellelesenZwei()
'** Angaben zur auszulesenden Zelle
pfad = "X:\Ankdg\Erledigt\["
blatt1 = "]Info'"
bezug1 = "$E$11"
For i = 2 To Range("K1")
Quelle = Range("B" & i)
Range("C" & i).FormulaLocal = "=" & pfad & Quelle & blatt1 & bezug1
Next i
End Sub
gibt mir die Fehlermeldung
"Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
aus
Was mache ich falsch?
Vielen Dank für Eure Hilfe!