steh grad auf den Schlauch ...
Hab eine Liste mit 100 Zeilen und 5 Spalten, wie füge ich nach jede Zeile eine Leerzeile ein?
Danke vorab
Gruß
Steve
Sub Zeile_einfügen()
Dim i As Integer
For i = 100 To 2 Step -1
Rows(i).Insert
Next i
End Sub
Sub ZeilenEinfügen()
Dim I As Long
For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Rows(I).Insert
Next
End Sub