Schleife sehr langsam
13.11.2013 08:01:24
Martin
da ich bisher gute Erfahrungen hier gemacht habe, habe ich noch eine Frage^^
Und zwar habe ich ein Makro, dass für verschiedene Berechnungen bei unter 1000 Zeilen rund 1,07 Minute(n).
Davon braucht diese Schleife allein jedoch schon rund eine Minute:
'Leerzeile einfügen sobald sich Werte in Spalte A unterscheiden
For lngrow = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(lngrow, 1).Value Cells(lngrow - 1, 1).Value And Not IsEmpty(Cells(lngrow, 1)) And Not IsEmpty(Cells(lngrow - 1, 1)) Then _
Rows(lngrow).Insert Shift:=xlShiftDown
Next
Hat jemand eine Idee, wie man diese beschleunigen könnte?
Die Sachen mit Screenupdating(= false), Calculation( = xlcalculationmanual)und EnableEvents(=false) habe ich schon.
Im Endeffekt soll einfach, sobald sich in Zeile A ein Wert ändert, eine Leerzeile eingefügt werden.
Gruß
Maba