ich möchte den Zeilenbereich A1:A156 markieren, kopieren und 52 x in dem selben Tabellenblatt untereinander kopieren. Kann mir jemand mit einem kleine Code weiterhelfen?
Gruß
Maris
Sub xxx()
dim i as integer
for i= 1 to 52
Range("A1:A156").copy cells(rows.count, 1).end(xlup).offset(1)
next i
End Sub
Sub Kopiere()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To 52
Range("A1:A156").Copy
Range("A1").Insert Shift:=xlDown
Next
Application.CutCopyMode = 0
End Sub
Gruß MatthiasOption Explicit
Sub Kopiere()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To 52
Range("A1:A" & 156).Copy Range("A" & 156 * x + 1)
Next
End Sub