Userform

[don42]

Beste helpers,

Ik probeer via een userform een BMI berekening te maken; heel simpel met 3 vakjes: 1 voor lengte, 1 voor gewicht en 1 voor het resultaat.
Ik heb dit:

Private Sub CommandButton1_Click()
Dim z As Control
For Each z In UserForm1.Controls
If TypeName(z) = "TextBox" Then
z.Value = ""
End If
Next z
Me.TextBox1.SetFocus
End Sub


Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub UserForm_Click()
Dim TextBox1 As String
Dim TextBox2 As String
Dim TextBox3 As String
'txtBMI = txtGewicht / (txtLengte * txtLengte)
TextBox3 = TextBox2 / (TextBox1 * TextBox1)
End Sub

En dat werkt dus niet
Wie helpt mij verder?

 

[edmoor]

Je weet wel dat die berekening pas wordt uitgevoerd als je ergens op een lege plek in het userform klikt (UserForm_Click) ?
Plaats anders je document.

 

[don42]

Bmi

Bij deze het voorbeeld bestandje

 

[edmoor]

Je moet die textboxen niet als variabele declareren.
Maak er dit van:

Private Sub CommandButton2_Click()
    TextBox3 = TextBox2 / (TextBox1 * TextBox1)
End Sub

 

[don42]

Top

Jip dat was um,
dank je wel

hoe krijg ik nu max 2 cijfers achter de komma?
format? dan heb ik het helemaal zo als ik het graag wil

 

[edmoor]

Bijvoorbeeld zo:

TextBox3 = Format(TextBox2.Text / (TextBox1.Text * TextBox1.Text) * 1000, "#.##")

 

[don42]

bedankt

Moest er een 0 bij zetten 1000 > 10000
maar nu is het helemaal goed
nogmaals dank :thumb: