Trimmen (Glätten)

Forumthread: Trimmen (Glätten)
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Trimmen (Glätten)

Trimmen (Glätten)

09.11.2004 09:35:54

Dr.

Moin zusammen,
kennt jemand einen schlanken Weg, per VBA alle Zellen einer Spalte zu trimmen?
Danke im voraus!

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Trimmen (Glätten)

xule
AW: Trimmen (Glätten)

Dr.
AW: Trimmen (Glätten)

xule
Thx!!!! (oT)

Dr.
Thx!!!! (oT)

Dr.

AW: Trimmen (Glätten)

xule

so?


Sub trimmen()
'Spalte vorher markieren
LR = Cells(Rows.Count, Selection.Column).End(xlUp).Row
For Each Z In Selection
If Z.Row > LR Then Exit For
Z.Value = Trim(Z.Value)
Next
End Sub

AW: Trimmen (Glätten)

Dr.

Hmmm, da trimmt sich irgendwie gor nix...!?!

AW: Trimmen (Glätten)

xule

Hallo
bei mir werden vorangestelle und anhängende Leerzeichen gelöscht.
Wenn innerhalb des Textes wiederholte Leerzeichen (nur wenn mehr als 1 hintereinanderfolgt) auch weggelöscht werden sollen dann hilft die Trimmfunktion von Excel.
Dazu noch Application. davorschreiben..


Sub trimmen()
'Spalte vorher markieren
LR = Cells(Rows.Count, Selection.Column).End(xlUp).Row
For Each z In Selection
If z.Row > LR Then Exit For
z.Value = Application.Trim(z.Value)'>>>>>>>>>>>>hier geändert
Next
End Sub