Geld bedragen optellen

[Roma]

Specialisten,

In een TextBox heb ik bedragen staan met een € teken.

TextBox100.Value = Replace(TextBox100.Value, ".", Application.DecimalSeparator)
If IsNumeric(TextBox100.Value) Then TextBox100.Value = Format(TextBox100.Value, "€ ##,##0.00")

Nu wil ik deze bedragen in een excel werkblad met een subtotaal optellen.
Ik krijgen het niet voor elkaar. Wie weet de oplossing
Alvast bedankt

 

[Leotaxi]

TextBox100 = FormatCurrency(Replace(TextBox100, ".", ","), 2)

mvg
Leo

 

[Roma]

Beste Leo,
Bedankt voor je reactie.
Helaas een foutmelding:

Private Sub TextBox100_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox100= FormatCurrency(Replace(TextBox100, ".", ","), 2)
optellen 
End Sub

Foutbericht: Fout 13 tijdens uitvoering
Typen komen niet met elkaar overeen

 

[Leotaxi]

Noroma,

code te gebruiken in opdrachtknop die de textboxen naar het werkblad schrijft, niet in de textbox exit.

mvg
Leo

 

[Roma]

Helaas de zelfde foutmelding

 

[Leotaxi]

anders eens bestandje bijvoegen

mvg
Leo

 

[Roma]

Leo,
Allereerst bedankt voor je hulp.
In de bijlage het bestandje.

Ik kan niet alleen het verbruik invoeren
Wel de Inkoop. Maar er een subtotaal in het werkblad maken dat lukt niet.

 

[Leotaxi]

Hoi Noroma,

voor subtotaal is in deze gezorgd.


mvg
Leo

 

[Roma]

Beste Leo
Mijn dank is verpletterend. Het werkt als een speer. Harstikke bedankt.
Ik heb toch nog een vraag: als ik alleen een barkaart wil invoeren dan geeft hij toch een foutmelding.
Als ik alle artikelen op 0 zet is die fout opgelost.
Kan je voor mij dat ook oplossen?

 

[Leotaxi]

Is in deze aangepast


mvg
Leo

 

[Leotaxi]

toch niet helemaal goed de vorige, (maandagmorgend denk ik )


mvg
Leo

 

[Roma]

Leo bedankt Super
Ron