Ich muß noch mal um Eure Hilfe bitten. Habe jetzt versucht eine Formel mit Pfad je 26 Zeilen zwei Leerzeilen und wieder 26 Zeilen usw. zu schreiben, habe mit dem Makrorekorder finde ich eine Lösung, welche ich selbst händeln kann. Aber dem ist nicht so. Erschwerend kommt noch dazu, das ich die Kalenderwoche im Dateinamen habe und diese nach den 26 positionen immer um eins nach oben gehen sollte. Also KW 1, Kw2 usw.. Hier mein Versuch.
Sub Makro3()
' Makro3
ActiveCell.FormulaR1C1 = _
"='N:\Datencenter\KW\[53KW2020.xlsm]Zentral Zeitg.Werbg.'!R[2]C[-1]"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"='N:\Datencenter\KW\[53KW2020.xlsm]Zentral Zeitg.Werbg.'!R[2]C[-1]"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C27"), Type:=xlFillDefault
Range("C2:C27").Select
ActiveWindow.SmallScroll Down:=6
Range("C30").Select
ActiveCell.FormulaR1C1 = _
"='N:\Datencenter\KW\[01KW2021.xlsm]Zentral Zeitg.Werbg.'!R[-26]C[-1]"
Range("C30").Select
Selection.AutoFill Destination:=Range("C30:C54"), Type:=xlFillDefault
Range("C30:C54").Select
ActiveWindow.SmallScroll Down:=30
Range("C57").Select
ActiveCell.FormulaR1C1 = _
"='N:\Datencenter\KW\[02KW2021.xlsm]Zentral Zeitg.Werbg.'!R[-53]C[-1]"
Range("C57").Select
Selection.AutoFill Destination:=Range("C57:C81"), Type:=xlFillDefault
Range("C57:C81").Select
ActiveWindow.SmallScroll Down:=21
Range("C84").Select
ActiveCell.FormulaR1C1 = _
"='N:\Datencenter\KW\[03KW2021.xlsm]Zentral Zeitg.Werbg.'!R[-80]C[-1]"
Selection.AutoFill Destination:=Range("C84:C108"), Type:=xlFillDefault
Range("C84:C108").Select
Range("I79").Select
End Sub
Die Formel in der Fortgeschrieben werden müsste lautet so
N:\Datencenter\KW\[53KW2020.xlsm]Zentral Zeitg.Werbg.'!B4
B4 am Ende müsste immer bis B28 gehen.Vielleicht könnt Ihr mir helfen. Habt mir gestern schon in ähnlicher Mission geholfen. Aber darauf baut halt der nächste Schritt auf. Bitte nicht böse sein.
Danke im voraus.
LG Robert