Mein Makro lautet aktuell:
Sub ZeilenEinfügen()
Dim z As Variant
Dim x As Variant
z = Application.InputBox _
("Geben Sie die Anzahl der einzufügenden Zeilen ein.", _
"Zeilen einfügen", "6", , , , , 2)
For x = 1 To z
Selection.EntireRow.Insert
Next x
End Sub
Die Datei findet Ihr hier: https://www.herber.de/bbs/user/153439.xlsm
Danke für Eure Hilfe