Excel - Jede 5. Zeile eine neue Zeile einfügen

Question

Hallo,
ich habe eine Excel-Tabelle mit 21264 Zeilen. Nach jeder 5. Zeile möchte ich eine leere Zeile einfügen. Manuell ist das jedoch ein riesiger Aufwand. Weiß vielleicht jemand wie ich es einfacher machen könnte?

Vielen Dank und viele Grüße! :)

Answer 1

Halo Nick,

Option Explicit

Sub Nick()
Dim loletzte As Long
Dim Loi As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For Loi = loletzte To 1 Step -1
If Loi Mod 5 = 0 Then
Rows(Loi + 1).Insert Shift:=xlDown
End If
Next Loi
Application.ScreenUpdating = True
End Sub

Gruß Hajo

Answer 2

Hallo Hajo,
vielen Dank für die Antwort. Gehe ich recht davon aus, dass dies ein Code für ein Makro ist? Könntest du mir diesen bitte kurz erklären?

Vielen Dank
Nick

Answer 3

Halo Nick,

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen. Start über Extras, Makro, Makros, Makro wählen, ausführen.

Gruß Hajo

Answer 4

Hallo Hajo,
hat alles geklappt! Vielen Dank für deine Hilfe!! :)

Grüße
Nick