Calculatie

[steelinadje]

hallo,

Ik ben bezig met een userform.
Nu wil ik in bepaalde velden een waarde intypen.
Bijv 6,00.
Nu wil ik in een ander veld deze waarde optellen.
bijv. 6,00 + 4,00 = 10,00
kan iemand mij hiermee helpen.

De waardes zijn in euro's.

 

[killermenace]

Stel
de €6,00 staat in veld A1
de €4,00 staat in veld B1

Dan kan je de som gebruiken

=SOM(A1;B1)
of
=A1+B1

___
Als je de €4,00 nog nergens hebt staan kan je

=SOM(A1;4,00)
of
=A1+4,00

 

[steelinadje]

vba

hallo,

De code voor een excelsheet weet ik.
Maar dit wil ik nu in vba programmeren.
En daarna opslaan in een sheet.
Misschien is dit iets duidelijker

 

[steelinadje]

opgelost

Is opgelost:

Private Sub CommandButton1_Click()
TextBox4.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value)
End Sub

Voor wie het wil gebruiken.

 

[killermenace]

Re: vba

Geplaatst door steelinadje
hallo,

De code voor een excelsheet weet ik.
Maar dit wil ik nu in vba programmeren.
En daarna opslaan in een sheet.
Misschien is dit iets duidelijker

Het zou handiger zijn geweest als je dat erbij had gezet

Mooi dat het is opgelost :thumb:

 

[steelinadje]

vba

Killermenace,

Nu is het zo dat het werkt, maar ik krijg alleen 6 te zien in plaats van 6,00.


Weet je soms hoe ik de FORMAT functie moet gebruiken.
Ik heb deze opgezocht mext excel help maar kom er niet uit.
Ik dacht dat dit zo ongeveer ging:

textbox1.value = format("numbers", "$##0.##00")
In de textboxen wordt niets ingevoerd,ik wijs er een waarde aan toe.

Nu wil ik deze optellen, en daarna opslaan in een sheet.
Zoals gezegd dit moet in vba gebeuren, omdat deze waarde in een userform komen.

 

[steelinadje]

hallo,

Even over het bovenstaande.

Hier heb ik het volgende voor gebruikt :

Format(textbox1.value, "Currency")

Maar nu is mijn vraag, hoe tel ik deze met elkaar op.

Zo werkt het niet :

textbox3.value = Format(Textbo1.value, "Currency") + Format(textbox2.value, "Currency")

Hoe kan ik deze waarden nu optellen in textbox3