Clever-Excel-Forum

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

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

Vielen lieben Dank!

Gruß
Andreas

ari-2001

Case

ari-2001