Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

das letzte Leerzeichen löschen
#1
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
Antworten Top
#2
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
________
Servus
Case
[-] Folgende(r) 1 Nutzer sagt Danke an Case für diesen Beitrag:
  • ari-2001
Antworten Top
#3
Vielen lieben Dank!

Gruß
Andreas
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste