Wärung
04.01.2020 12:18:27
Dani
Ich brauch eure wertvoll Hilfe
Frage wie muss ich den Code gestalten wenn in Textbox boxfakturiert das Ergebnis in Währung sein sollte.
folgenden Code benütze ich
Private Sub boxanzahl_Change()
On Error Resume Next
boxfakturiert.Value = boxanzahl.Value * tb1.Range("g9").Value
End Sub
Private Sub boxfakturiert_Change()
If boxfakturiert "" Then boxfakturiert = Format(boxfakturiert, "##,##0.00 Fr.")
End Sub
Sollte Ergebnis 61.70 sein.
Wenn ich beim boxanzahl eine 10 ein tippe herhalte ich Ergebnis 610.70
So sollte es sein.
Was mache ich falsch?
Vorab Besten Dank und Gruss
Dani
Anzeige