makro läuft zu lange
25.03.2005 03:58:15
Gabor
ich habe 2 Schleifen, die aber mehrere Minuten brauchen bis sie ein Ergebnis bringen. Die Tabelle hat mehrere Tausend Zeilen und es soll jede Zeile gelöscht werden, wenn folgende Bedingungen erfüllt sind:
1. Wenn in Spalte I ein Wert ungleich B steht (beginnend ab Zeile 4)
2. Wenn in Spalte AH eine leere Zelle ist. (beginnend ab Zeile 4).
Hier der jetzige CODE:
Sub all()
For i = Cells(Rows.Count, 9).End(xlUp).Row To 4 Step -1
If Cells(i, 9) <> "" And Cells(i, 9) <> "B" Then Rows(i).delete Shift:=xlUp
Next i
'Wenn in Spalte AH eine leere Zelle ist, wird diese Zeile gelöscht
For i = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
If Cells(i, 34) = "" Then Rows(i).delete Shift:=xlUp
Next i
End Sub