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
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