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
der zweite CodePrivate Sub boxfakturiert_Change()
If boxfakturiert "" Then boxfakturiert = Format(boxfakturiert, "##,##0.00 Fr.")
End Sub
Wenn ich beim boxanzahl eine 1 ein tippe herhalte ich Ergebnis 22463.00Sollte 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