Opgelost Text verwijderen na leesteken ,

[Excelvbas01]

Ben opzoek naar een vba code om tekst achter , (komma) in een textbox te verwijderen.
VB: Dit wordt in een Textbox geladen. (Appels, groene peren)
Ik wil dus groene peren verwijderen en dat er allleen Appels overblijven.

 

[emields]

voorbeeldbestandje vergeten?

 

[edmoor]

Zoiets dan:

TextBox1.Text = Split("Appels, groene peren", ",")(0)

 

[snb]

Hoe, waarvandaan komt die tekst in dat tekstvak terecht?

 

[Excelvbas01]

voorbeeldje.
De bedoeling is dat alleen tekst voor de , (komma) in textbox verschijnt.

@edmoor: ik ben bekend met die code maar dat is niet wat ik bedoel.

​

 

[edmoor]

Zie de vraag van snb.
Dat blijft dan toch hetzelfde?

TextBox2.Value = Split(.Column(1), ",")(0)

 

[Excelvbas01]

Dat heb je snel gedaan. Dat is precies wat ik bedoel.
Bedankt.

 

[snb]

Maar snap je het ook ?