Code beschleunigen!?
25.01.2018 15:58:48
Alex
Folgender Code dauert ewig:
For i = letzteZeileLöschen To letzteReihe + 1 Step -1
Set objCell = Tabelle2.Columns(17).Find(What:="ID/" & Tabelle14.Cells(i, 1).Value, After:=Tabelle2.Cells(1, 17), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
Tabelle14.Rows(i).Delete
End If
Next i
Habt ihr Vorschläge, wie das schneller gehen könnte? Die Schleife läuft durch dirca 900 Werte. Daher wird das wohl so lange dauern, oder? Da die Schleife des öfteren im Makro vorkommt, summiert sich die Wartezeit auch noch erheblich.
VG, Alex