Ich habs leider nicht geschafft, herauszufinden, was ich gemacht hatte.
Wie ging das denn?
Danke und liebe Grüße
Stefan
sub Formel_test()
Range("A1").Select
Selection.AutoFill Destination:=Range("A1":"A20")
Range("A1":"A20").Select ' gesamte Spalte mit Formel auffüllen
Application.CutCopyMode = False
Selection.Copy
end sub
Gruß Doris