Hallo zusammen,
ich möchte in einer Tabelle mit 15 Spalten und ca 40.000 Zeilen einige Zeilen löschen, wenn ein bestimmtes Kriterium, dass in Spalte K angegeben ist erfüllt ist.
Mein Makro sieht so aus:
Dim i As Long
Application.ScreenUpdating = False
For i = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row) To 1 Step -1
If Cells(i, 11) = "X" Then Rows(i).Delete
Next
Application.ScreenUpdating = True
Grundsätzlcih macht das Makro was es soll, allerdings ist die Laufzeit mit ca 20 Minuten recht lang. Kann mir jemand evtl. eine effizientere Methode empfehlen, bei der die Laufzeit reduziert wird?
Vielen Dank im Voraus
Joachim