Word 2007, BMI berekenen op userform

Status
Niet open voor verdere reacties.
Er komt altijd veel meer bij kijken dan je denkt. Met kleine stapjes kom je heel ver.
Oftewel, vele kruimels maken ook een brood :)
 
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
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan