Office: Mehrere aufeinander folgende Leerzeichen durch ein einziges ersetzen

Ich möchte per Makro (oder Funktion) in einer kompletten Tabelle die Zellen in einer einzigen Spalte wie folgt bearbeiten:

Bis zum letzten Zeichen der jeweiligen Zellen sollen ggf. mehrere aufeinander folgende Leerzeichen durch ein einziges ersetzt werden.

Beispiel:

vorher : "Ein_____Männlein_steht____im_____________Walde"
nachher: "Ein_Männlein_steht_im_Walde"

Wie mache ich das am geschicktesten?

Anmerkung: Ich habe das Blank in meinem Beispiel durch einen Unterstrich ersetzt, da die Darstellung hier ansonsten automatisch
auf ein Leerzeichen reduziert wird.

:)

 

VBA: Trim()
Excel: GLÄTTEN()

 

hab`s mit Trim in meinem Makro versucht, klappt nicht! *confused.gif*

.Cells(Zeile, 6) = Trim(.Cells(Zeile, 5)

In Spalte F steht nach Makro exakt dasselbe wie in Spalte E.

Wenn ich mich nicht irre, entfernt die Funktion Trim nur die führenden und angehängten Leerzeichen!?!
Habe auch Google mal dazu befragt, und ich kann leider nix Gegenteiliges finden.

Leider gibt es die Funktion GLÄTTEN in VBA nicht *depressed

Wie kann ich das anders - mit Code im Makro - lösen?

 

Hallo,

VBA.Trim() löscht nur am Anfang und Ende Leerzeichen.

Aber es gibt die Möglchkeit auch die "Worksheetfunction." zu nutzen.

Die Übersetzen von "=glätten()" musst du dir suchen.

mfg

 

Trim() *wink.gif*

Code:

 

Hallo FrankAs,

versuch's mal so: Code:

Gruß von Luschi
aus klein-Paris

 

Hallo!

Ohne VBA

Tabelle2

	A	B	C	D
2	ein   Männlein    steht im  Walde	ein Männlein steht im Walde		entfernt die Leerzeichen am Anfang und am Ende des Zellinhalts
3	Huber   Sepp	Huber Sepp		würde aber doppelt vorkommende Leerzeichen mitten im Text auch auf ein Leerzeichen ändern

Zelle	Formel
B2	=GLÄTTEN(A2)

Excel Tabellen im Web darstellen >>

 

Moin,
geht auch recht gut mit Power Query ...

 

Hallo an alle, die`s interessiert:

Hier die Lösung / Code für Makro:

Code:

Mit dem "Application"-Command kann man Excel-Funktionen in VBA aufrufen *idee

Gruß
Frank

 

Hallo,

mit der Übersetzungshilfe:

die Funktion VBA.Trim()

wirkt anders als

Worksheetfunction.trim()

mfg