Punt omzetten naar komma UserForm VBA

Status
Niet open voor verdere reacties.

erwin71

Gebruiker
Lid geworden
8 apr 2012
Berichten
19
Leden!

Ik heb UserForms waar men cijfers moet ingeven. Deze kunnen decimalen bevatten.
Als ik "1.2" ingeef, verschijnt er in het sheet "12"
Als ik "1,2" ingeef, dan verschijnt er in het sheet wel "1,2".

Aangezien je een gebruiker niet kan dwingen om met komma's te werken, zou ik het graag willen automatiseren dat een punt een komma wordt.

Ik had een mogelijke oplossing gevonden met IFCONTAINS, maar ik weet niet hoe het precies in mekaar zit.
Dus als een txtBox "." bevat moet het omgezet worden naar ",".

Als iemand een antwoord weet..

Bedankt!
 
van , naar .

Code:
=SUBSTITUEREN(D61;".";",")+0

grtjs
 
Private Sub btnGegevensDakVolgende_Click()

Sheets("Bouwschil dakisolatie").Select
Range("L21").Select
ActiveCell.FormulaR1C1 = txtReno.Value

Me.hide
Resultaten.show
End Sub

Hoe kan ik =SUBSTITUEREN(L21;".";",")+0 hierboven integreren?
Het lukt me niet :(
 
Code:
Private Sub btnGegevensDakVolgende_Click()

Sheets("Bouwschil dakisolatie").Range("L21")=replace(txtReno.Value,",",".")

Me.hide
Resultaten.show
End Sub

PS je gebruikt toch geen 2 userforms ???
 
Je kunt uiteraard prima op een formulier een check doen op wat de gebruiker intypt, en dus ook checken of er een punt of een komma is getypt. Simpel voorbeeldje dus...
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan