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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen