Office: Leerzeichen entfernen

Hi Leute,

wie kann man über VBA leerzeichen entfernen?

Ich habe volgende Zelleninhalte:

Code:

"ARK   1"
oder
"ARK  10"

Ich brauche aber das Vormat:

Code:

"ARK 1"
"ARK 10"

Ich hoffe einer von euch hatt ne Idee oder vieleicht nen VBA Quellcode der mir weiterhelfen kann.

MFG
Der Danny

PS:
MS Office-Excel 2003

 

Hallo!

Mit VBA kann ich leider nicht dienen, aber die Funktion GLÄTTEN löscht überflüssige Leerzeichen. Vielleicht ist das ein Punkt, an dem du ansetzen kannst.

 

Danke für die Antwort.

Glätten gibt es leider nicht im VBA aber ich hab ne andere Lösung. Trotzdem nochmal Danke.

MFG
Danny

 

Hallo!

Dann verrate doch deine Lösung.
Vielleicht hat ein anderer mal ein ähnliches Problem.

 

ASB
> Glätten gibt es leider nicht im VBA

Doch, doch... Gibt es... Nennt sich TRIM$.

Hilft Dir in Deinem Fall aber nicht weiter, weil die Leerzeichen sich nicht an den "Außenkanten" der Zeichenkette befinden.

ASB
> aber ich hab ne andere Lösung.

Da Du sie nicht nennst, würd ich mal auf Folgendes tippen:

REPLACE-Funktion, mit der Du " " (2 Leerzeichen) durch " " (1 Leerzeichen) ersetzt, gekoppelt mit einer WHILE-Schleife, die solange läuft, wie die INSTR-Funktion das Vorhandensein von " " (2 Leerzeichen) meldet?

leer1=" "
leer2=" "
while instr(zeichenkette,leer2)>0
zeichenkette=replace(zeichenkette,leer2,leer1)
wend

Gruß, Michael