Leerzeichen am Ende einer Zelle mit VBA entfernen

Hallo,

Tablelle 1
Zelle D2

in dieser Zelle steht ein Text.
Am Ende des Textes stehen mehrere Leerzeichen.

Könnte mir bitte jemand einen Tipp geben, wie ich diese Leerzeichen in der Zelle per VBA entfernen kann?

Ich habe es, ohne Erfolg, versucht mit:
ActiveSheet.Range("D2").Value = RTrim(ActiveSheet.Range("D2"))

Danke im Voraus.
Gruß

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 643009

Url: https://administrator.de/forum/leerzeichen-am-ende-einer-zelle-mit-vba-entfernen-643009.html

Ausgedruckt am: 22.12.2024 um 18:12 Uhr

5 Kommentare

Neuester Kommentar

Hallo

Also bei mir geht dein Code perfekt, entfernt alle Leerzeichen am Ende

Gruss

Zitat von @Meierjo:

Hallo

Also bei mir geht dein Code perfekt, entfernt alle Leerzeichen am Ende

Gruss

Aber nur wenn er sich auch aktiv in "Tabelle1" befindet wenn er gerade in "Tabelle2" wäre würde er das auf Tabelle2 anwenden und nicht auf die Zelle in Tabelle1 ... 😉

With Sheets("Tabelle1").Range("D2")  
    .Value = RTrim(.Value)
End with

Entschuldigung,
ich hatte vergessen zu erwähnen, dass die Zelle am Ende Zeilenumbrüche hat.
Also:
Zeilenumbruch und ""
Zeilenumbruch und ""
Zeilenumbruch und ""
usw.

Gruß

Zeilenumbruch und ""

Auch kein Beinbruch, wofür gibt's Regex ...

Set regex = CreateObject("vbscript.regexp")  
regex.Pattern = "[\s""]+$"  
With Sheets("Tabelle1").Range("D2")  
    .Value = regex.Replace(.Value, "")  
End With