ich habe diesen Code mit der wird die 1999999 alle Zeilen gelöscht.
Sub löschen2()
Dim letztezeile As Long
Dim i As Long
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = letztezeile To 1 Step -1
If ActiveSheet.Cells(i, 4).Value = 1999999 Then
ActiveSheet.Rows(i).Delete
End If
Next i
End Sub
Jetzt möchte ich 5 weitere Nummer eingeben, die gelöscht werden müssen.
23232323
87878787
15987829
45698723
32698401
Wie mach ich das am besten ?
Danke an alle :-)