|
Guten Tag zusammen,
ich habe ein Problem bei Berechnungen zwischen zwei Textboxen und der Ausgabe in einer dritten Textbox.
Und zwar: Der Einkaufspreis soll so mit der Marge multipliziert werden, dass in einer dritten Textbox der Verkaufspreis angezeigt wird.
Das klappt auch soweit im hunderter Bereich (sprich Einkaufspreis 500€, Marge 10%, Verkaufspreis 550€).
Sobald ich aber in den 1000 Bereich gehe (Format 1.000€) rechnet er nur bis zum Punkt, also nur mit der 1.
(Einkauspreis 1.000€, Marge 10%, Verkauspreis 1,10€), obwohl natürlich 1.100€ richtig wäre.
Wie gesagt, ich denke die Berechnung ist nicht die schnellste, aber darum geht es erstmal nicht.
Es geht nur darum dass er den Punkt nicht als Anlass nimmt, alles dahinter nicht mehr zu Betrachten.
Vielen Dank und ein schönes Wochenende an alle!
Private Sub cmdVerkaufspreis_Click()
'Verkaufspreis berechnen
With Me
If Me.txtEinkaufspreis = "" Then
MsgBox ("Bitte Einkaufspreis eintragen")
ElseIf Me.txtMarge = "" Then
MsgBox ("Bitte Marge eintragen")
Else
Me.txtVerkaufspreis.Text = Format(CStr(Val(Replace(Me.txtEinkaufspreis.Text, ".", ",")) / 100 * Val(Replace(Me.txtMarge.Text, ".", ",")) + CStr(Val(Replace(Me.txtEinkaufspreis.Text, ".", ",")))), "#,##0.00€")
|