Verknüpfung aus Einzelwerten zusammensetzen

[Rumo0815]

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!

[cysu11]

Hallo,

hast du eine Beispieltabelle?

LG
Alexandra

[Rumo0815]

hier die Beispieltabelle

[cysu11]

Hi,

versuche es mal so:

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


LG 
Alexandra

[Rumo0815]

klappt wunderbar, ein "=" zuviel!

herzlichen Dank!

[cysu11]

Hi,

wohl eher an der falschen Stelle und ein ! hat noch gefehlt! :)

LG
Alexandra