Hallo liebes Forum,
ich habe ein funktionierendes Makro mit mehreren If-Bedingungen, aber leider dauert es recht lange, bis alles durch ist.
Wie kann man ein solchiges Makro optimieren und schnell durchlaufen lassen? Mit einem with-Block?
------------------------------------------
Sub BEST()
Dim i As Long
For i = 7000 To 2 Step -1
If Cells(i, 3) = "" Then
Rows(i).Delete
End If
Next i
For i = 7000 To 2 Step -1
If Cells(i, 11) = "ERLEDIGT" Or Cells(i, 11) = "ABGESCHLOSSEN (MENGENMÄSSIG)" Or Cells(i, 11) = "ABGESCHLOSSEN (WERTMÄSSIG)" Or Cells(i, 11) = "KOMPL.GELIEFERT" Or Cells(i, 11) = "STORNIERT" Or Cells(i, 11) = "" Then
Rows(i).Delete
End If
Next i
For i = 5000 To 2 Step -1
If Cells(i, 1) = "inaktiv" Then
Rows(i).Delete
End If
Next i
End Sub
---------------------------------------------------- |