Lange Laufzeit wegen TRIM() bei vielen Zellen
18.07.2003 10:21:51
Roger
' führende und angehängte Leerzeichen aus allen Zellen entfernen
Sheets(SHEETNAME).Activate
For Each zelle In Range(TARGETRANGE)
zelle.Value = Trim(zelle.Value)
Next
Dies hat bei ca. 16.000 Zellen eine recht hohe Laufzeit (auf meinem antiquierten System ca. 3 min).
Wie könnte man dies eventuell optimieren?
Ich habe bereits den Screenrefresh und die automatische Zellneuberechnung deaktiviert - ohne spürbare Zeitunterschiede.
Schon vorab vielen Dank für Input.
Roger
P.s.: Ich würde mich auch freuen, wenn jemand für mein gestriges Hyperlink-Problem eine Lösung hätte :-)