nur mal damit ich das auch kapier...
Sub LeerzeileEinfügen()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 1).Value = "Receive" Then
Rows(i + 1).Insert
End If
Next i
End Sub
mit diesem Code füge ich leerzeilen ein... Allerdings bricht er bei mittendrin irgendwann ab und fügt nicht nach jedem Receive ne Leerzeile ein...Woran liegt das, oder kann das liegen? Is halt doof, muss jedesmal das Macro ab der letzten eigefügt Zeile neu starten, dann gehts wieder ca 1000 Zeilen und dann is wieder Schluss
Gruss Gerhard