Tja, das häng von deinem Makro ab. Eine "Reverse Funktion" gibt es meines wissens nicht. Könntest aber natürlich einfach sowas bauen:
Option Explicit
Dim rng As Range
Sub ZeilenEinfügen()
Dim Entscheidung$
Set rng = Range(Rows(1), Rows(10))
rng.Insert Shift:=xlDown
rng.Select
Entscheidung = MsgBox("Zeilen wieder löschen?", vbYesNo)
If Entscheidung = vbYes Then
rng.Rows.Delete
End If
End Sub
|