Spatie`s aan het einde van de zin verwijderen

[HWV]

Beste,

Ik zoek een VBA oplossing om de spaties aan het einde van mijn zin weg te halen

Waarom:

Ik heb twee omschrijvingen die door ons ERP systeem samen gevoegd zullen worden.
Nu ben ik er dus achter gekomen dat er in de eerste omschrijving veel spaties staan aan het einde van de zin, wat een resultaat geef dat er te veel spaties komen tussen de twee omschrijvingen die door het ERPpakket samengesteld zal worden

Groet HWV

 

[richard1970]

Beste HWV,
Uit de helpfile van VBA:

Voorbeeld van de functies LTrim, RTrim en Trim
Dit voorbeeld maakt gebruik van de functie LTrim voor het weghalen van voorloopspaties en RTrim voor het weghalen van volgspaties uit een tekenreeksvariabele. De functie Trim alleen wordt gebruikt om beide spatiesoorten te verwijderen.

Dim MyString, TrimString
MyString = "  <-Trim->  "    ' Initialiseert tekenreeks.
TrimString = LTrim(MyString)    ' TrimString = "<-Trim->".
TrimString = RTrim(MyString)    ' TrimString = "  <-Trim->".
TrimString = LTrim(RTrim(MyString))    ' TrimString = "<-Trim->".
' Met de functie Trim alleen krijgt u hetzelfde resultaat.
TrimString = Trim(MyString)    ' TrimString = "<-Trim->".

Richard

 

[HWV]

gezocht

Sub spatie()
Dim c As Range
For Each c In Range("A65000").End(xlUp)
    c = RTrim(c)
Next c

End Sub

Met de tip RTrim ben ik verder gegaan maar blijf hangen.
Nu haalt hij enkel bij de onderste regel de spatie`s weg.

Wat doe ik verkeer

Groet HWV

 

[richard1970]

Beste HWV,

Met jouw code ga je naar de onderste cel van je bereik
Je gaat naar cel A65000 en springt dan omhoog naar de eerste gevulde cel die Excel tegenkomt, en dat is de onderste van je tabel.

Richard

 

[Warme bakkertje]

Sub spatie()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c = RTrim(c)
Next c
End Sub

 

[snb]

Sub spatie()
  For Each cl In activesheet.columns(1).specialcells(2)
    cl = Trim(cl)
  Next 
End Sub

NB. Wees in het Nederlands even consistent als in VBA: spaties, geen spatie's.

 

[HWV]

geluk

Bedankt voor de input.

Het werkt perfect om de spaties te verwijderen aan het einde van de zin met deze code:

Sub spatie()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c = RTrim(c)
Next c
End Sub

Groet HWV

 

[danny147]

Beste HWV

Hier toch een voorbeeldje met een formule.

Groetjes Danny. :thumb: