Sub SetUp()
Dim Pfad As String
Pfad = "C:\...\Dateiname.xlsm"
If Dir(Pfad) "" Then
Cells(1, 1).Formula = "='[" & Pfad & "]Deckblatt'!" & "A1"
End If
End Sub
Was aber nach Ausführung des Makros in Zelle A1 des Blattes zu finden ist:='[C:\...\[Dateiname.xlsm]Deckblatt]Dateina'!A1
Wobei am Ende "Dateina" dafür stehen soll, dass nur ein Teil des Dateinamen abgeschnitten ist. Woran könnte dieser Fehler liegen?
Vielen Dank!