|
Hallo Hermann
Das Array wird bei dir nur teilweise genutzt
Da weiterhin Cells Zugriffe innerhalb der Schleife genutzt werden ,ist es langsam
Sheets("LISTE1").Cells((Zindex + 2), 13).Value = total
stattdessen sollte das Array gefüllt werden
Nach der Schleife
Das Array zurück schreiben
und Autofilter Off
Laufzeit auf einem Uraltrechner
Tab1 2000 Datensaetze
Tab2 6000 Datensaetze
Laufzeit 9 Sekunden
Gruß Michael
|