Trim schneller machen
17.03.2021 10:56:56
Eisi
gibt es eine Möglichkeit nachfolgenden Code schneller zu machen?
In meiner Mappe werden 934 Zeilen und 33 Spalten mögliche Leerstellen links und rechts des Inhalts gelöscht.
In der Mappe stehen Zahlen und Text.
Jetzt stelle ich gerade fest, das Trim mir ein paar Formatierungen durcheinander geworfen hat.
Beispiel:
Aus Zahl wird Text, d. h. die Zahl steht links in der Zelle. Das Format ist aber trotzdem "Standard" wenn ich die Formatierung anschaue.
Das betrifft aber nur die Spalten: P, Q, S, X, AA, AC.
In den anderen Spalten in denen auch Zahlen stehen ist nichts passiert.
Somit habe ich hier bitte 2 Fragen:
1. Kann man Trim schneller machen, denn es Dauer schon sehr lange, bis der Code durchgelaufen ist?
2. Wie kann ich in den benannten Spalten das Zahlenformat erhalten?
Vielen Dank für die Unterstützung.
VG Eisi :-)
Sub LeerzeichenEntfernen()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Zelle As Range
For Each Zelle In tbl_Testblatt.UsedRange
Zelle.Value = Trim(Zelle.Value)
Next Zelle
MsgBox "Complete"
endmacro:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub