8Zeilen kopieren und immer wieder einfügen
29.01.2020 13:40:48
STeve
Kopiere 8 Zeilen und möchte diese untereinander mit einer Schleife "einfügen". Das klappt aber mit
Insert Shift:=xlDown
leider nur einmal.
Besten Dank
Sub Zeilenkopierenundeinfuegen()
Dim Zeile1 As Integer
Zeile1 = 628
Dim Zeile8 As Integer
Zeile8 = 635
Rows(Zeile1 & ":" & Zeile8).Select
'''Select damit es in die Variable "kopierterBereich" '''''''gepackt ''''''''werden kann
Selection.Copy
Set kopierterBereich = Selection
For A = Zeile8 + 1 To 667 Step 8
kopierterBereich.Insert Shift:=xlDown
Next A
End Sub
Anzeige