if Schleife zu langsam
01.04.2019 16:09:41
xkurtx
ich habe eine Excel Datei mit rund 10K Zeilen.
Ich will alle Zeilen löschen, in denen 2 Kriterien nicht erfüllt sind.
Das habe ich mit einer if-Schleife versucht, was aber sehr lange dauert.
Kann man das optimieren bzw. kennt ihr eine schnellere Variante, um das zu schaffen?
Mein Code:
With w1
For i = zeile to 5 step -1
If .cells(i,4) "Opt1" And_
. celss(i,4) "Opt2" Then ActiveSheet.Rows(i).EntireRow.Delete
Next i
End With
Danke!