So ist es momentan. Wie muss ich den anpassen?
Vielen Dank und schönen Sonntag!
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€")
Dim curZahl1 As Currency
Dim curZahl2 As Currency
Dim curErgebnis As Currency
'*** Achtung: Textzeichen sind zu entfernen;ggf in Labels auslagern oder entsprechend handeln
curZahl1 = CCur(Me.txtEinkaufspreis.Text)
curZahl2 = CCur(Me.txtMarge.Text)
curErgebnis = (curZahl1 * curZahl2)
Me.txtVerkaufspreis.Text = CStr(curErgebnis)
End If
End With
|