Word 2007, BMI berekenen op userform

[edmoor]

Er komt altijd veel meer bij kijken dan je denkt. Met kleine stapjes kom je heel ver.
Oftewel, vele kruimels maken ook een brood

 

[jackfish]

Hallo edmoor en snb, excuses voor late vervolgbericht. Maar, het is gelukt met onderstaande code

Private Sub TxtGewicht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TxtGewicht <> "" And TxtLengte <> "" Then
TxtLengte = ((TxtLengte * TxtLengte) / 10000)
TxtBMI = Format(TxtGewicht / TxtLengte, "0.1")
TxtBmiRound = Format(TxtGewicht / TxtLengte, "0,0")
End If
End Sub

Dank voor het meedenken!

Gr jackfish

 

[jackfish]

Excuses voor mijn late reactie edmoor en snb. Hieronder de code.

Private Sub TxtGewicht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TxtLengte <> "" And TxtGewicht <> "" Then
TxtLengte = (((TxtLengte) * 2) / 100)
TxtBMI = Round(((TxtGewicht / TxtLengte)), 1)
TxtBmiRound = Round(((TxtGewicht / TxtLengte)), 0)
End If
End Sub

Het lastge is alleen dat je wel een komma moet gebruiken (er zijn altijd wel collega's die een punt hanteren). Is dat nog via VBA te tackelen?

jackfish

 

[jackfish]

lengte*2 is overigens niet hetzelfde als lengte * lengte