Guten Morgen Zusammen,
Ich würde gerne folgende Befehle in eine Schleife bauen, weiß aber leider nicht wie ich das am besten umsetze.
Das aktuelle Coding funktioniert so schon, ist jedoch nicht leicht veränderbar, da dann z.B. die Range bei jedem Block angepasst werden muss...
Range("F3").Select
Selection.AutoFill Destination:=Range("F3:F100"), Type:=xlFillDefault
Range("F3:F100").Select
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G100"), Type:=xlFillDefault
Range("G2:G100").Select
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H100"), Type:=xlFillDefault
Range("H2:H100").Select
...
Danke vorab für eure Unterstützung
|