Overflow error in userform

[Eggie]

Hallo,

ik heb een userform gemaakt met onderstaande code om de performance in het userform zelf te presenteren.

De code werkt, echter als het form 2 maal achter elkaar wordt ingevuld verschijnt runtime erro 6: overflow.

Weet iemand hoe ik dit kan voorkomen? Alvast bedankt!

Mvg,

Eggie

Private Sub Userform_initialize()

Label54.Caption = ""
Label55.Caption = ""
Label57.Caption = ""
Label59.Caption = ""
Label61.Caption = ""
End Sub

Private Sub Textbox1_beforeupdate(ByVal Cancel As MSForms.ReturnBoolean)

Label54.Caption = Val(TextBox1.Value) + Val(TextBox3.Value)

End Sub

Private Sub Textbox2_beforeupdate(ByVal Cancel As MSForms.ReturnBoolean)

Label55.Caption = Val(TextBox2.Value) + Val(TextBox4.Value)

End Sub

Private Sub Textbox3_beforeupdate(ByVal Cancel As MSForms.ReturnBoolean)

Label54.Caption = Val(TextBox1.Value) + Val(TextBox3.Value)
Label61.Caption = Round(Val(TextBox2.Value) / Val(TextBox1.Value), 4) * 100 & "%"

End Sub

Private Sub TextBox4_beforeupdate(ByVal Cancel As MSForms.ReturnBoolean)

Label59.Caption = Round(Val(TextBox4.Value) / Val(TextBox3.Value), 4) * 100 & "%"
Label57.Caption = Round(Val((TextBox2.Value) + Val(TextBox4.Value)) / Val((TextBox1.Value) + Val(TextBox3.Value)), 4) * 100 & "%"

End Sub

 

[Wigi]

Ik denk dat je meer kans maakt op antwoorden met een voorbeeldje (in Excel versie 2003).