Private Sub cmdVerkaufspreis_Click()
 
    If txtEinkaufspreis = "" Then MsgBox ("Bitte Einkaufspreis eintragen"): Exit Sub
    If txtMarge = "" Then MsgBox ("Bitte Marge eintragen"): Exit Sub
            
    txtVerkaufspreis = CCur(Me.txtEinkaufspreis) * CCur(Me.txtMarge)
end sub