Waarom werkt dit niet?

[ExcelAmateur]

Hallo helpers,

Het is mijn bedoeling om van de tekst die in een cel staat, het laatste teken weg te verwijderen.
Als ik met de cursor op cl staat en de macro met F8 laat lopen zie je dat het laatste teken
is verwijderd maar in de cel veranderd het niet.

Private Sub CommandButton1_Click()
  For Each cl In [A1:A10]
  If cl = "" Then Exit Sub
    cl = Left(cl, Len(cl) - 1)
  Next
End Sub

 

[Haaren101]

zie je dat het laatste teken is verwijderd maar in de cel veranderd het niet.

Hoe zie je dan dat het laatste teken is verwijderd?

Ron

 

[ExcelAmateur]

Haaren101,

Hoe zie je dan dat het laatste teken is verwijderd?

Dat staat in mij verhaal.
Als je in de VBAcode met de cursor op cl staat en je laat de macro met F8 lopen zie je dat het veranderd.
Alleen hij doet dit niet in de cel en dat is wel de bedoeling.

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
  For Each cl In [A1:A10]
  If cl = "" Then Exit Sub
    cl[COLOR="red"].Value [/COLOR]= Left(cl, Len(cl) - 1)
  Next
End Sub

 

[ExcelAmateur]

Warme bakkertje,

Hartelijk bedankt voor de oplossing.
Het was eigenlijk heel simpel ik was al 2 dagen hier mee bezig.