ich habe bei der Recherche im Archiv diesen Code gefunden:
Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
Range(Cells(i, 1), Cells(i + 1, 1)).EntireRow.Insert
Next i
Application.ScreenUpdating = True
End Sub
kann man den so abändern, dass er ab der zweiten Zeile (A2) nach jeder dritten Zeile zwei Leerzeilen einfügt?
Danke!
Gruß Daniel