Punt vervangen door komma

[gbvdh]

Goedendag,

Is het mogelijk, en zo ja hoe, om wanneer er in een textbox een getal in is getypt dit te controleren of er een punt in staat en deze dan te vervangen voor een komma. Het blijkt namelijk dat mensen nog al vaak dat mensen 15.6 intypen ipv 15,6 en dan werkt het niet zo goed meer.

Mijn dank is groot,

Barry

 

[justtrytohelp]

Er is volgens mij wel een manier maar dan vervang je alles ik bedoel elke .
JE gaat naar edit vervolgens klik je op replace.
Find what moet een . zijn
replace with moet een , zijn
Je kan doen find next etc en als je hem wil veranderen doe je replace

Dit is wat je bedoeld toch ?
Laat het me weten.

Groetjes maikel

 

[gbvdh]

Maikel,

Bedankt voor je snelle reactie. Ik ben blijkbaar niet helemaal duidelijk geweest in mijn vraag, ik namelijk graag dat dit gebeurd als het programma runt. Dus iemand vult een waarde in een textbox in drukt op berekenen en dan (mag op zich ook wel meteen bij het invullen als dat makkelijker is) moet er gecontroleerd worden of er een punt of een komma staat. Jou optie werkt alleen als het programma nog niet runt, toch? Of mis ik nu iets?

 

[justtrytohelp]

Huh volgens mij snap je me niet leg het is uit,,

Ik bedoel dit.

Stel jij tikt een heel formulier en een paar keer doe je een .
Als je klaar bent met typen heb je bijv 459 punten die komma's moeten zijn
Dan ga je naar EDIT, vervolgens replace.
Je typt in . bij find what.
Je typt in , bij replace
en dan bijv replace all.
En alle punten zijn komma's of je doet 1 voor 1 dat kan ook.
Je kan dit doen terwijl je met het document bezig bent.

Dit is toch wat je bedoeld of niet?

 

[hackerfrans]

met een replace functie moet het kunnen:
Dim LResult As String

LResult = Replace ("15.6", ".", ",")

 

[gbvdh]

met een replace functie moet het kunnen:
Dim LResult As String

LResult = Replace ("15.6", ".", ",")

Dat werkt op zich inderdaad prima, alleen staat hier het getal al in de code. Ik wil graag dat dit getal wordt vervangen door een textbox, of in ieder geval het getal uit de textbox. Iets in mij zegt me dat dit vast vrij eenvoudig is, maar ik ben nog niet zo lang bezig met VBA dus ik weet niet zo goed hoe

 

[hackerfrans]

Dan moet je de naam van de textbox weten:
sData = Replace (textBoxNaam.Text, ".", ",")

 

[gbvdh]

Onder m'n knop staat nu dit:

TextBox9 = Replace(TextBox3.Text, ".", ",")

Maar er gebeurd niks als ik op de knop druk. Enig idee waar de fout zit?

 

[hackerfrans]

vooropgesteld dat je het in textbox9 wilt hebben en niet textbox 3:
TextBox9.Text = Replace(TextBox3.Text, ".", ",")

 

[gbvdh]

Perfectos. Mijn dank is groot