Leerzeile
07.05.2013 16:47:40
Kai
ich arbeite in meiner Tabelle mit folgendem Makro:
Sub leer_einfügen()
Dim i As Long, a As Integer
i = Cells(65536, 1).End(xlUp).Row
For a = i To 1 Step -1
If a > 1 Then
If Cells(a, 1) Cells(a - 1, 1) Then
Cells(a, 1).Insert Shift:=xlDown
End If
End If
Next a
End Sub
Es geht auch schon ganz gut, leider fügt er nur eine Leere Zelle ein, ich möchte aber eine komplette Zeile einfügen und sie soll erst ab der Zeile 5 und nicht ab der ersten beginnen!Wie muss ich es ändern?
Vielen Dank
LG
Kai