Hallo, via Makro kopiere ich selektierte Bereiche (im Prinzip jeweils einzelne Spalten mit je ~ 1000 Zeilen) von einem Worksheet in ein zweites. Dies funktioniert noch recht flott. Anschließend sollen alle überflüssigen Spaces je Zelle, die am Anfang oder am Ende eines Zelleintrages stehen, gelöscht werden. Dazu verwende ich:

' 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 :-)