Hallo,

ich möchte gerne einen Code für folgendes Ereignis schreiben: Wenn in Spalte J eine Zelle den Wert "2" hat, soll die gesamte Zeile gelöscht werden.Insgesamt habe ich ~600.000 Einträge.

Mit folgendem Code dauert der Durchlauf allerdings sehr lange:

Sub Spalteloeschen()

Dim loeschen As Double

Application.ScreenUpdating = False

For loeschen = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(loeschen, 10).Value = "2" Then
Rows(loeschen).Delete
End If
Next loeschen

Application.ScreenUpdating = True

End Sub

Kann mir jemand einen Hinweis geben, wie ich den Code so verändere, dass er auch bei vielen Zeilen schnell abläuft?

Gruß Marc