ich bräuchte mal eure Hilfe.
Ich habe hier ein Makro das mir alle Zeilen löscht wo in Spalte A
in den Zellen 100 steht.
Sub löschen()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 1).Value = "100" Then
Rows(i).Delete
End If
Next
End Sub
Nun möchte ich aber das alle Zeilen gelöscht werden die nicht 218 in Spalte A
enthalten. Die Werten gehen "leere Zelle" bis 300.
Das müsste doch an dieser Stelle passieren:
If Cells(i, 1).Value = "100" Then
aber wie?
Danke