Schleife zu langsam
05.02.2015 14:29:49
Plagiat1312
Folgender Code soll in einem Blatt zum Einsatz kommen, dass über das Jahr hinweg auf über 100.000 Zeilen anwachsen wird (meine pers. Annahme). Die Prozedur dauert bei den bereits vorhanden Zeilen von ca 48.000 bereits geraume Zeit und daher die Frage an euch Experten: `
Wie kann ich den Code aus Performance Perspektive verbessern?
Sub Monatswerteloeschen()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Long, LZeilenAnzahl As Long, SpalteMonat As Long
LSpalteMonat = 7
LZeilenAnzahl = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
With ActiveSheet
For i = LZeilenAnzahl To 20 Step -1
If .Cells(i, 9).Value = .Cells(1, LSpalteMonat).Value Then .Rows(i).Delete
Next
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Danke im voraus!
Gruß
Plagiat1312