Gedeelte vanuit een textbox naar werkblad.

[kabebanaan]

Hallo,

Weet iemand hoe ik een gedeelte uit een gevulde textbox naar het werkblad krijg?

Stel je hebt in een textbox staan "50 - Titel", dan wil ik dat alleen het getal 50 wordt weggeschreven naar het werkblad.

 

[Roncancio]

Tja,


Er zijn verschillende mogelijkheden. Bijv:

1. De eerste 2 waardes in cel A1 plaatsen.

[A1] = left(textbox1.value,2)

2. Net zo lang zoeken totdat het er geen getal of spatie in textbox1 gevonden wordt.

Dim Pos as integer
Pos =1
While isnumeric(mid(textbox1.value,Pos,1))=True and mid(textbox1.value,Pos,1)<>"" and Pos <=len(textbox1.value)
Pos = Pos +1
Wend
[A1] = left(textbox1.value,Pos)

Een en ander hangt nogal af van de wijze waarop de tekstbox is ingevuld.

 

[kabebanaan]

Dankje ... hier kan ik wel wat mee.