Runden in Textfeld
28.03.2015 22:39:47
Thomas
habe mal wieder ein Problem.
Ich rechne innerhalb einer userform die Merhwertsteuer und das Netto aus. Wobei ich aber den Bruttowert vorgebe und den Mehrwertsteuersatz aussuchen kann.
Dies funktioniert auch soweit ganz gut nur leider weiss ich nicht wie ich die Ergebnisse auf zwei Stellen hinter dem Komma runden kann. Hat jemand eine Idee?
Am besten erkennt man mein problem in Beispiel.
Es wäre auch noch super wenn ich den 19 % wert schon voreingestellt hätte.
https://www.herber.de/bbs/user/96701.xls
Der Code ist:
Private Sub CheckBox2_Click()
End Sub
Private Sub CommandButton1_Click()
On Error GoTo Fehler
If OptionButton1 = True Then
TextBox1 = Sheets(1).Range("a1")
Else
TextBox1 = Sheets(1).Range("a2")
End If
TextBox9.Text = CDbl(TextBox2.Text) / CDbl(TextBox1.Text) ' hier werde textboxen berechnet
TextBox8.Text = CDbl(TextBox2.Text) - CDbl(TextBox9.Text) ' hier werde textboxen berechnet
'Unload Me
Exit Sub
Fehler:
TextBox3.Text = "Addition nicht möglich"
End Sub
vielen Dank schon mal für eure Hilfe
Thomas