Habe hier aus dem Forum einen Code zum Zeilen löschen.
Klappt bei Angabe einer Zeilen-Nr. ausgezeichnet
Wie kann ich auf diesem Weg verschieden Zeilen löschen.
Enitrag in InputBox z.B. 1, 3, 5 funktioniert nicht.
mfg Werner
Sub Zeile_weg ()
Dim i As Integer
i = InputBox ("Zeile eingeben")
Cells(i, 1) .EntireRow.Delete Shift:=xlUp
End Sub