VBA Zeilen löschen beschleunigen
Frank
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
Vielen Dank,
Frank