Hi
Ich habe einige Strings mit Leerzeichen am Anfang und Ende.
Nach einiger Suche habe ich diese Möglichkeit gefunden.
Dim Rng As Range
Set Rng = Range("E3:E" & loLetzte)
For Each Cell In Rng
Cell.Value = Trim(Cell)
Next Cell
Sie Funktioniert auch.
Aber sie benötigt bei ca. 20.000 Zeilen doch eine Lange Zeit. Da ich diese Formel dan auch noch in 5 Sheets ausführen muss, dauert es schon schmerzlich lange.
Ich habe aber in einem Beitrag gelesen, das man es über ein Array erheblich beschleunigen kann.
Ich habe aber keine Ahnung, wie man mit Array umgeht.
Könnt ihr mir bitte helfen?
Wenn ihr im 2. Step auch noch den Neuen Code erklären könntet wäre ich sehr verbunden.
Aber in erster Linie (Wenn ihr wenig Zeit / Lust habt) den Code.
Danke
|