Zeilen löschen nach Textvergleich
11.05.2005 10:25:17
Steffen
in meiner Excel-Liste möchte ich die Zellen einer Spalte (2000 Zeilen) mit einem Text vergleichen und bei Übereinstimmung die ganze Zeile löschen.
Bei komplettem Vergleich und Übereinstimmung funktioniert das auch, nicht aber, wenn ich die ersten Zeichen vergleiche und dahinter einen Platzhalter ("*") einsetze.
Folgendes Makro habe ich in diesem Forum gefunden und abgeändert und funktioniert wie gesagt nicht für meinen Fall.
Sub löschen()
Dim i%
Application.ScreenUpdating = False
For i = 1300 To 1 Step -1
If Cells(i, 1) = " DB21*" Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
Über Hilfe würde ich mich freuen.
Gruß
Steffen
Anzeige