, i.p.v. .

[don42]

Beste helpers,

Ik ben deze week goed geholpen met
Een userform voor BMI berekening
Echter nog 1 vraagje
Bij invoer in textbox2 (gewicht)
Moet je een komma gebruiken bv 78,5
En niet 78.5
Dat geeft een verkeerd resultaat
Hoe kan ik in textbox2 een . Gebruikt wordt
En dan via een msgbox de fout melden
Don

 

[edmoor]

Kijk eens naar de VBA functie Replace:
https://www.techonthenet.com/excel/formulas/replace_vba.php

Je kan dan gewoon de punt gebruiken of een komma, zonder dat het een probleem geeft of je een foutmelding moet geven.

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

 

[don42]

Dat zou natuurlijk nog veel mooier zijn
Ga proberen of het mij lukt
Kom er op terug

 

[mvdvlist]

En voor het mooi zou je in de LEEG knop nog kunnen plaatsen:

Label3.Visible=False
TextBox3.Visible is False

Dan verberg je de textbox ook bij nieuwe ingave

 

[snb]

Of ?

TextBox3 = Formatnumber(10^5 * (Replace(TextBox2, ".", ",") / TextBox1^2), 2)

 

[don42]

Gelukt

Met jullie hulp (en tips)
ben ik weer een stapje verder
Dank jullie

 

[emields]

probeer deze eens