Berekening via userform

[Jhon van der Bo]

In een Userform heb ik 3 textboxen en een CommandButton. In textbox1 zet ik 50, in textbox2 zet ik 55. Als ik nu op de commandbutton klik moet in textbox3 de uitkomst van de berekening komen te staan.

De berekening is als volgt: "input van textbox1" x 100 : "input van textbox2".

Wie kan me hierbij helpen.

Zie de bijlage

 

[Ingrid B]

Een aangepaste versie:

 

[Jhon van der Bo]

OK

Perfect, was me toch iets te moeilijk zo te zien.

Nog even een vraagje, hoe kan ik de textbox3 instellen op 2 decimale's? Nu zie ik 6 nummers achter de comma.

 

[Ingrid B]

Verander de berekening door

txt3 = Round(txt1 * 100 / txt2, 2)

 

[Jhon van der Bo]

Krijg een foutmelding bij het vetgedrukte
txt3 = Round(txt1 * 100 / txt2, 2)

 

[Ingrid B]

De enige manier dat ik daar een fout op krijg, is als je de waarde 0 (nul) ingeeft. Hiervoor kan je de test op txt2 uitbreiden tot:

If Not IsNumeric(txt2) Or txt2 = 0 Then

Als dit bij jou het probleem niet oplost, vermeld dan de gebruikte Excel versie.

 

[Jhon van der Bo]

Melding komt ook als ik andere waarde ingeef dan 0

Versie: Win NT Excel 97 SR-2

 

[Ingrid B]

Excel 97 kent blijkbaar de functie Round niet. Op deze manier zou het wel moeten lukken:

txt3 = Application.WorksheetFunction.Round(txt1 * 100 / txt2, 2)

 

[Jhon van der Bo]

Yes, het werkt zo wel.

Ingrid, bedankt