Nabend Till,
ich bin beeindruckt...Das Ganze läuft in knappen 4,5 Minuten durch. (Deine erste Antwort). Musste es nur ein wenig anpassen und Kleinigkeiten beheben. Aber die konntest du ja nicht kennen...Ich bin beeindruckt, dass du durch meinen Code überhaupt durchgestiegen bist :-)
Dauert nur noch halb so lang...
Die Statusbar habe ich entfernt, da sie in der Tat nicht lief. Ich probiere es am Montag mal mit der neuen Version :-) Am Wochenende habe ich schließlich frei.
Vielen Dank jedenfalls, du hast mir sehr geholfen.
Im Grunde lag die langsame Ausführung doch dann an den Refernzierungen (heisst das so?). Ich glaube das war recht unsauber in meinem Versuch.
Stimmt es, dass man generell Integer vermeiden sollte, weil Long immer schneller ist?
Und ich sollte mit mehr "With" arbeiten um den Code zu kürzen.
Bringt sowas
Set A= Application
With A
nennenswerte Vorteile gegenüber
With Application
?
Und
Set rng = Range(Cells(1, 1), Cells(lz, 5))
AV = rng.Value
...vielen Dank. Das ist wohl ein Variant-Array? Ich dachte immer man MUSS die größe des Arrays definieren. Scheint so ja automatisch zu gehen. Danke für diesen Tipp. Nur dachte ich auch mal sollte Variant vermeiden und lieber klar definieren?
Falls du einen Link oder eine Buchempfehlung hast oder so, wäre ich dir sehr dankbar. Mich interessiert das Thema "beschleunigen von Codes" doch sehr.
Der Code hier ist nur der Anfang und dahinter soll noch weit mehr wachsen...Wenn das schon (bei mir) 10 Minuten dauert...Wo soll das Enden? :-)
Wo kann man sich hier registrieren? Ich glaube ich bin hier künftig öfter ;-)
Viele Grüße
Stefan
|