Zeilen einfügen
19.11.2013 14:00:28
Daniel
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
nach jeder dritten Zeile zwei Leerzeilen einfügt?
Danke!
Gruß Daniel
Anzeige