Hallo Leute,
ich habe eine Formel gefunden mit der ich nach Zeile 9 eine Leerzeile einfügen kann:
Dim i As Integer
Dim z As Integer
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 11 Step -1 'to 11 bedeutet nach Zeile 10 wird eingefügt
For z = 1 To 1
Cells(i, 1).EntireRow.Insert Shift:=xlDown
Next z
Next i
Application.ScreenUpdating = True
Wie kann ich diese Zeilen wieder löschen?
Hintergrund: ich füge diese Zeilen ein, füge dann in jede Zeile eine SVERWEIS ein und kontrolliere die obere Zeile ob sich etwas verändert hat oder nicht, dann ändere ich entsprechen die Zeilen um (auf neusten Stand) und dann möchte ich diese "Hilfszeilen" wieder löschen.
Danke vorab !
Viele Grüße aus Frankfurt,
Tobias