Textboxen bij elkaar optellen

Status
Niet open voor verdere reacties.

Boverduyn

Gebruiker
Lid geworden
4 mrt 2016
Berichten
61
Hallo allemaal,

Ik ben in word bezig met een factuur.
Iemand moet d.m.v alleen de userform alles in kunnen vullen.
Hierbij moet ik een aantal textboxen bij elkaar optellen.
Als ik de volgende code invul dan komt er een afgerond bedrag uit......
Me.TextBox8.Value = Val(Me.tb1) + Val(Me.tb2) + Val(Me.tb3) + Val(Me.tb4)

Heeft iemand een oplossing om de bedragen in me.tb1, tb2 etc (bedragen met komma's) bij elkaar op te tellen en zo te laten zien in textbox8.

Bij voorbaat erg bedankt!!

Gr
 
VBA werkt alleen met Engelse notatie. De komma zal dus worden gezien als schedingsteken van duizendtallen en niet van decimalen.
 
Je zal zoiets moeten invoegen om te rekenen
Code:
Private Sub tb1_Change()
tb1 = Replace(tb1, ",", ".")
End Sub
Edit: wat krijg je als resultaat op die manier?
Code:
TextBox8.Value = tb1.Value  + tb2.Value  + tb.Value 3 + tb4.Value
 
Laatst bewerkt:
Bedankt voor je bericht.
Als ik dat invul dan krijg ik de getallen naast elkaar ipv bij elkaar opgeteld. :(
 
en zo?
Code:
TextBox18.Value = (Val(tb1.Value) + Val(tb2.Value) + Val(tb3.Value))
 
Laatst bewerkt:
Hij pakt alleen de komma wanneer het een bedrag is met als scheidingsteken een . (punt)
bij bedragen met een komma rond ie hem af.
 
Code:
Private Sub tb1_Change()
tb1 = Replace(tb1, ",", ".")
End Sub
Gebruik dit voor alle 3 de tb
 
Dit zou toch moeten werken:
Code:
Me.TextBox8.Value = Val(Replace(Me.tb1, ",",".")) + Val(Replace(Me.tb2, ",",".")) + Val(Replace(Me.tb3, ",",".")) + Val(Replace(Me.tb4, ",","."))
 
juppppp het is gelukt!
Bedankt allemaal!!
Mogen we dan ook de oplossing weten??
Kwestie van andere vraagstellers te helpen met hetzelfde probleem.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan