Private Preis As Double
Private Menge As Double
Private Rabatt As Double
Private Bruttowert As Double
Private MWST As Double
Private Nettowert As Double
Private Rabattwert As Double
Private Rechnungsbetrag As Double
Bruttowert = TextBox1 + TextBox2
If Bruttowert <= 5000 Then Rabatt = 10
If Bruttowert >= 5000 Then Rabatt = 0
Rabattwert = Bruttowert * Rabatt
Nettowert = Bruttowert - Rabatt
MWST = Nettowert * 0.19
Rechnungsbetrag = Nettowert + MWST
Private Sub CommandButton1_Click()
Rechnungsbetrag
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
_______________________________________________
Kann mir jemand sagen was hier falsch ist?!
Blubbudri (159) 
|
