Hallo MO,
danke für den Lösungsvorschlag.
Ich hatte nebenher ebenfalls weiter getüftelt und bin auf folgende Lösung gekommen:
Sub Formel_kopieren_2()
Dim LetzteZelle As Long
LetzteZelle = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Set SourceRange = Worksheets("Filmarchiv").Range("Y2:AD2")
Set fillRange = Worksheets("Filmarchiv").Range("Y2:AD" & LetzteZelle)
SourceRange.AutoFill Destination:=fillRange
Range("Y3:AD" & LetzteZelle).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Deine Lösung hätte ich auch umbauen müssen, weil diese mir die Formeln in Zeile 2 zerschiesst,
und da ich mit einer With-Schleife noch überhaupt nichts gemacht habe, bin ich bei dieser Lösung hier gelandet.
Gruß
Peter