Zeilen löschen
25.10.2004 10:40:16
Sabrina
ich brauch mal eure Hilfe. Habe hier ein Makro das Zeilen löscht wenn in einer Zelle ein bestimmter Wert steht.
Sub löschen()
For i = Cells(Rows.Count, 13).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 13).Value = "TMS" Then
Rows(i).Delete
End If
Next
End Sub
Nur sollen alle Zeilen gelöscht werden wo der Wert TMS vorkommt.
Die Werte heißen aber "TMS01" bis "TMS100". Wie kann ich es schreiben das alle
mit "TMS" von 01 - 100 gelöscht werden? Mit "TMS*" funktioniert es nicht...
Danke für eure Hilfe
Anzeige