✅ VBA Trim-, LTrim- und RTrim-Funktionen - Leerzeichen aus Text entfernen

Inhaltsverzeichnis

Trim-Funktion

Dieses Tutorial zeigt, wie Sie die VBA-Funktionen Trim, LTrim und RTrim sowie die Worksheet-Funktion Trimmen verwenden.

Trim-Funktion

Die VBA-Trim-Funktion entfernt ("trimt") fehlerhafte Leerzeichen vor und nach Textzeichenfolgen.

Leerzeichen vor und nach Text kürzen

Die VBA Trim-Funktion entfernt Leerzeichen vor und nach Textzeichenfolgen:

12345678910

Sub TrimBeispiel_1()MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

Trimmen Sie mehrere Leerzeichen vor und nach dem Text

Dazu gehört das Trimmen mehrerer Leerzeichen vor und nach dem Text:

12345678910

Sub TrimExample_2()MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

VBA Trim entfernt NICHT mehrere Leerzeichen zwischen Wörtern

Die Trim-Funktion entfernt jedoch nicht mehrere Leerzeichen zwischen Wörtern:

12345678910

Sub TrimExample_3()MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

Trimmen als Arbeitsblattfunktion

Die Excel-Arbeitsblatt-Trim-Funktion kann jedoch verwendet werden, um zusätzliche Leerzeichen zwischen Wörtern zu entfernen:

Verwenden Sie die Arbeitsblatt-Trimfunktion in VBA

Um die Excel Trim-Funktion in VBA zu verwenden, rufen Sie sie mit WorksheetFunction auf:

12345678910

Sub TrimExample_4()Msgbox WorksheetFunction.Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox WorksheetFunction.Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox WorksheetFunction.Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

Sind Sie es leid, nach VBA-Codebeispielen zu suchen? Probieren Sie AutoMacro aus!

Unterschied zwischen WorksheetFunction.Trim und VBA Trim

Dies zeigt die Unterschiede zwischen Trim und WorksheetFunction.Trim:

1234567891011121314151617

Sub TrimExample_5()Msgbox WorksheetFunction.Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox WorksheetFunction.Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox WorksheetFunction.Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"Msgbox Trim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

Verwenden Sie VBA, um eine Trim-Funktion in einem Bereich hinzuzufügen

Die Funktion Arbeitsblatt trimmen kann in einem Bereich mit der Eigenschaft .Formula hinzugefügt werden:

123	Sub TrimExample_6()ThisWorkbook.Worksheets("Sheet1").Range("B1").Formula = "=trim(A1)"End Sub

LTrim-Funktion

Die Funktion LTrim entfernt Leerzeichen nur von der linken Seite des Wortes:

12345678910111213141516171819

Sub TrimExample_7()MsgBox LTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox LTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox LTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox LTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox LTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox LTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

RTrim-Funktion

Die Funktion RTrim entfernt Leerzeichen nur von der rechten Seite des Wortes:

12345678910111213141516171819

Sub TrimExample_8()MsgBox RTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox RTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox RTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox RTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox RTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"MsgBox RTrim("Ich liebe Excel")'Ergebnis ist: "Ich liebe Excel"End Sub

Trim, Ltrim und Rtrim entfernen keine Leerzeichen zwischen Wörtern.

Entfernen Sie alle Leerzeichen aus dem Text

Trim entfernt nur zusätzliche Leerzeichen zwischen Wörtern, aber um alle Leerzeichen in einer Textfolge zu entfernen, können Sie die Ersetzen-Funktion verwenden: