Zeilen löschen, wenn Bedingung in Spalte erfüllt
17.07.2008 16:07:00
maruseru
Der untenstehende Code würde mir in abgeänderter Form sehr helfen.
Ich möchte aber gerne zwei Kriterien eingeben. Nun kommt der Clou:
Value sollte alphanumerisch sein.
Alle Zeilen mit einem Eintrag B1* bis B9* und
Alle Zeilen mit einem Eintrag C1* bis C9*
sollen gelöscht werden.
Danke und Gruss
Maruseru
Sub löschen()
Dim i
For i = Cells(Rows.Count, 20).End(xlUp).Row To 1 Step -1
On Error Resume Next
If InStr(Cells(i, 20).Value, "umme") Then
Rows(i).Delete
End If
Next
End Sub