das letzte Leerzeichen löschen

[ari-2001]

Hallo,

noch eine Frage,

wie kann ich im Tabellenblatt "Daten"

in den Spalten "B" und "D" das letzte Leerzeichen mit dem "rtrim"-Befehl löschen?

Vielen dank für die Hilfe.

Gruß
Andreas

[00202]

Hallo Andreas, :19:

z. B. so: :21:

Code:

Option Explicit
Public Sub Main()
    Dim varTemp As Variant
    Dim lngTMP As Long
    With ThisWorkbook.Worksheets("Daten")
        varTemp = .Range(.Range("B1"), .Cells(.Rows.Count, "D").End(xlUp))
        If Not IsEmpty(varTemp) Then
            For lngTMP = LBound(varTemp, 1) To UBound(varTemp, 1)
                varTemp(lngTMP, 1) = RTrim(varTemp(lngTMP, 1))
                varTemp(lngTMP, 3) = RTrim(varTemp(lngTMP, 3))
            Next lngTMP
            .Range(.Range("B1"), .Cells(.Rows.Count, "D").End(xlUp)) = varTemp
        End If
    End With
End Sub

[ari-2001]

Vielen lieben Dank!

Gruß
Andreas