KoB
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...
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...