excel vba formulier getallen optellen

[MARINA111]

Beste

Ik heb een formulier met invoervelden voor getallen waarbij ik om het cijferklavier te kunnen gebruiken zorg dat de punt een komma wordt:
txtbedrag1.Value = Replace(txtbedrag1.Value, ".", ",")
txtbedrag2.value = replace(txtbedrag2.value,".",",")
in een laatste veld wordt een optelling van bovenstaande velden getoond :
txtbedragtotaal = val(me.txtbedragveld1) + val(txtbedrag2)

MAAR cijfers na de komma worden helaas NIET meegeteld, wat wel de bedoeling is.
Heeft iemand een oplossing hiervoor?

 

[HSV]

[COLOR=#333333]txtbedragtotaal = cdbl(txtbedragveld1) + cdbl(txtbedrag2)[/COLOR]

 

[Warme bakkertje]

Zonder die 'veld' erin zal het al veel beter gaan denk ik.

txtbedragtotaal = cdbl(txtbedrag1) + cdbl(txtbedrag2)

 

[MARINA111]

Beste

In bijlage een klein voorbeeldje, want het lukt niet....

 

[HSV]

Ik zou het niet met de change_gebeurtenis doen, want bij elke cijfer die je invult loopt de code.
Doe het achteraf met een commandbutton om de telling te maken, of met deze twee codes; waarbij Enter, Tab of de muis de telling maakt.

Private Sub txtbedrag1_AfterUpdate()
 txtbedrag1 = Replace(txtbedrag1.Value, ".", ",")
 If Len(txtbedrag1) > 0 And Len(txtbedrag2) > 0 Then txttotaal = CDbl(txtbedrag1) + CDbl(txtbedrag2)
End Sub


Private Sub txtbedrag2_AfterUpdate()
 txtbedrag2 = Replace(txtbedrag2.Value, ".", ",")
 If Len(txtbedrag1) > 0 And Len(txtbedrag2) > 0 Then txttotaal = CDbl(txtbedrag1) + CDbl(txtbedrag2)
End Sub

 

[MARINA111]

Werkt prima !!Bedankt!!:thumb:

 

[snb]

ietsje anders: