ich habe eine Liste mit ca. 3000 Zeilen und möchte
nun gerne ab der 10. Zeile immer eine Leerzeile
einfügen. Ist so etwas möglich ? oder hat vielleicht
jemand eine Idee, die mir auf die Sprünge helfen
könnte ?
Viele Grüße
Ralf
Sub LeerzeilenEinfuegen()
Dim lngI As Long
Application.ScreenUpdating = False
For lngI = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 11 Step -1
ActiveSheet.Cells(lngI, 1).EntireRow.Insert Shift:=xlDown
Next lngI
Application.ScreenUpdating = True
End Sub