laatste teken verwijderen

[ReilingJ]

Hallo,
ik haal gegevens op uit een tabel, en plaats die vervolgens in een variabele. Het ophalen is zoiets als:

getal.txt = ActiveDocument.Tables(1).cell(2, 1).Range.Text

helaas wordt tevens ook een verkeerd teken mee opghaald uit de cell.

Kan iemand me vertellen hoe ik dit teken (altijd het laatste teken ) uit getal.txt moet verwijderen?

groet Jan.

 

[namliam]

iets met left(cel, len(cel) -1) zou de truck moeten doen

SucZeven

 

[Wigi]

Inderdaad:

getal.txt = Left$(ActiveDocument.Tables(1).cell(2, 1).Range.Text, Len(ActiveDocument.Tables(1).cell(2, 1).Range.Text) - 1)

Iets eenvoudiger te begrijpen:

Dim s As String
s = ActiveDocument.Tables(1).cell(2, 1).Range.Text
getal.txt = Left$(s, Len(s) - 1)

Wigi

 

[ReilingJ]

Bedankt voor reacties,
probleem(pje) opgelost,
Jan