Und was ist DAS?
.FormulaLocal = "='[" & ActiveWorkbook.Path & "\" & Format(Range("A95") - 1, "DD.MM.YYYY") & ".xls]" & _
.FormulaLocal =
"='["
& ActiveWorkbook.Path &
"\" & Format(Range("
A95
") - 1, "
DD.MM.YYYY
") & "
.xls]" & _
Format(Range(
"A95"
) - 1,
"DD.MM.YYYY"
) &
"'!J37"