Kann Excel in eine bestehende Tabelle automatisch nach jeder Zeile 8 weitere einfügen? Ohne dass ich selbst per hand jede Zeile einzeln anklicken muss?
Danke für Antwort!
Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Range(Rows(i + 1), Rows(i + 8)).EntireRow.Insert
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rudi