leerzeilen einfügen
Gerhard
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
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
Anzeige