Hallo Volti
habe es jetzt nach langen Probieren, doch mit eurer Formel hinbekommen, weiß nicht was ich erst falsch gemacht. Der Tipp mit den Namen in Apostroph setzen hat dann geklappt.
Riesen Dank für eure Hilfe.
Jetzt habe ich nur noch ein Problem: Für eine Zeile würde ich gerne ein Datum übernehmen.
Die Formel von euch habe ich jetzt wie folgt abgeändert:
Dim Datum As Integer
For Datum = 7 To Worksheets.Count
Worksheets("Bestellung").Cells(Datum - 3, "A").FormulaLocal = "='" & Worksheets(Datum).Name & "'!E2"
Next Datum
Gruß Julia
|