Zeilen löschen mit wildcard werte
21.07.2008 16:02:51
maruseru
Wie bringe ich folgendes Makro zum funktionieren?
Es sollen alle Zeile gelöscht werden, wenn in Spalte B der M* oder G* vorkommt
Danke und Gruss
Maruseru
Sub löschen()
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
On Error Resume Next
If CStr(Cells(i, 2).Value) Like "M*" Then
Rows(i).Delete
End If
Next
End Sub
Anzeige