Hallo zusammen,
ich habe folgenden Befehl in einem Makro, den ich gerne als Schleife schreiben würde:
If ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row = 74 Then
Sheets("BAB").Activate
Range("S:S").EntireColumn.Select
Selection.Copy
Range("T:T").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:= _
xlNone, SkipBlanks:=False, transpose:=False
Application.CutCopyMode = False
[D73].Activate
End If
Dabei habe ich mehrere Variablen:
- Zunächst möchte ich die Schleife von Row 74 bis 91 laufen lassen.
- Die Ranges (hier einmal S:S und T:T) sollen im nächsten Schritt immer um zwei Spalten verschoben werden.
Der nächste Vorgang würde dann wie folgt aussehen:
If ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row = 75 Then
Sheets("BAB").Activate
Range("U:U").EntireColumn.Select
Selection.Copy
Range("V:V").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:= _
xlNone, SkipBlanks:=False, transpose:=False
Application.CutCopyMode = False
[D73].Activate
End If
Habt ihr da eine Idee, wie ich das Ganze lösen kann?
Danke und Gruß