Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Trimmen (Glätten)

Trimmen (Glätten)
09.11.2004 08: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
Anzeige
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

Anzeige
Thx!!!! (oT)
Dr.
.
Thx!!!! (oT)
Dr.
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige