ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del()
Application.ScreenUpdating = False
Dim i As Integer
Dim lz As Integer
Worksheets("ergebnis").Activate
lz = Range("A4").End(xlDown).Row
For i = 4 To lz
If WorksheetFunction.CountIf(Range("DEL_CUST"), Cells(i, 2)) > 0 Then
Rows(i).Delete
i = i - 1
lz = lz - 1
End If
Next i
Application.ScreenUpdating = True
End Sub
Da ich mehrere tausend Zeilen überprüfen muß, dauert das ganz schön lange. Besteht die Möglichkeit das eleganter und beschleunigter zu machen? Vielleicht so, das erstmal alle zu löschenden Zeilen nur markiert werden und der eigentliche Löschvorgang nur einmal am Ende ausgeführt wird?! Wie wäre dann die Syntax?Vielen Dank,
Frank