Geschwindigkeit optimieren
01.03.2021 13:03:31
M.
gerne würde ich meinen Code weiter auf Speed trimmen.
Was sind sehr zeitintensive Abfragen und Tricks?
Das Deaktivieren der Zell- und Bildschirmrefreshs zu Beginn des Codes habe ich z.B. schon.
Noch viel faszinierender finde ich,
dass trotz hunderter if-Abfragen in Forschleifen, drei zueinander ähnliche if-Abfragen, die jede nur einmal ausgeführt werden, der Code deutlich langsamer wird, obwohl zwei Funktionen nicht ausgeführt werden, wovon eine eine Datei öffnet und Tabellenblatt kopiert. Seltsam dass das Datei Öffnen und schließen schneller geht als 3x die Abfrage nach dem Wert eines Booleans. (gehe ich den Umweg über einen Integer, gleiches Resultat und Verlangsamung)
Zeit steigt von 3,0-3,3 Sekunden auf 3,9-4,3 Sekunden.
If boolAllinOne = False Then
DBTabloeschen
DBalsTabeinfuegen
End If