In UF mit Textboxen Prozentrechnen
01.12.2014 17:44:28
Heinz
Ich habe in einer UF 3 Textboxen zum Prozentrechnen.
In Textbox5 & Textbox6 gebe ich einen Wert ein, nun sollte in Textbox7 der Prozensatz rauskommen.
Zb. Textbox5 = 100 Textbox6 = 10 Textbox7 =10%
'Prozentrechnen
Private Sub TextBox6_Change()
If IsNumeric(TextBox6.Text) Then
TextBox7.Text = Format((CDec(TextBox5.Text) + CDec(TextBox6.Text) / 100) * CDec(TextBox5. _
Text))
End If
End Sub
Könnte mir dazu bitte jemand weiterhelfen,auch mit der richtigen Formatierung der Textboxen?
Danke,Heinz
Anzeige