Office: Funktion verbessern

Hallo zusammen,
In meiner Tablle sind Werte mit unnötigen nachstelligen Leerzeichen, damit diese gelöscht werden benutze ich diese Funktion.

Code:

'Hier werden alle nachstelligen Leerzeichen gelöscht
    Dim rnd As Range
    For Each rng In Worksheets(txtMichung.Text).Range("B1:D255")
         rng.Value = WorksheetFunction.Trim(rng.Value)
     Next rng

Das Problem ist nun, umso größer die Reichweite (Range) wird desto länger brauch das Programm dieses zu bearbeiten. Die Reichweite sollte "B1:D1001" sein, aber dies dauert VIEL zu lange.
Gibt es eine Möglichkeit meine Funktion zu optimieren oder sogar eine andere Funktion anzuwenden??

Bitte helft mir...

 

Hallo,

sin deine Werte Zahlen oder Text? Also was steht in den Zellen? Sind diese Ergebnis eines Datenimports?

 

Na, wolltest du testen welches Forum schnelle antwortet?

http://www.office-loesung.de/ftopic108182_0_0_asc.php

Schönen Tag noch.

 

Naja ich bin verzweifelt und brauche Hilfe, deswegen sollte man doch alle möglichen Optionen optimal ausnutzen.

#1 Text und Zahlen
#2 Teilweise ein Name bzw Bezeichnung, teilweise beides (bsp.: G3), oder nur eine Zahl bzw ein Wert.
#3 Ja es wurde importiert