Excel: nach jeder 4. Zeile eine Leerzeile eifügen

Question

Hallo!
ich habe schon einige Makros gefunden, mithilfe derer man nach jeder Zeile eines Excel-Tabellenblattes eine Leerzeile einfügen kann.
ICH bin aber absoluter Laie in Sachen Makros. Und ich brauche eins,dass ich nach jeder VIERTEN Zeile je EINE neue Zeile einfügen kann. Ich bin einfach zu blöd, als dass ich die bereits vorhandenen Makros entsprechend modifizieren könnte!
Kann mir jemand helfen?
Claudia

Answer 1

Hallo Claudia,

folgender Code ist bis Zeile 100 eingestellt.
Die 100 kannst Du nach Bedarf ändern.

Option Explicit

Sub einfuegen()
Dim intI As Integer
For intI = 4 To 100 Step 4
Cells(intI, 1).Insert Shift:=xlDown
Next
End Sub

Gruß
Rainer

Answer 2

Hallo

97 To 4 Step -4