Hallo,
ich habe es jetzt so umstrukturiert, es sind keine Unterprozeduren mehr definiert, aber es funktioniert jetzt.
Ich hoffe, das die Aufgabe trotzdem als erfüllt gilt....
Sub Steuerprogramm()
Dim Nettobetrag As Double
Dim Mwst As Single
Dim Bruttobetrag As Double
Nettobetrag = InputBox("Bitte geben Sie den Endbetrag der Rechnung ein:")
If Nettobetrag > 500 Then
Nettobetrag = Nettobetrag * 0.9
End If
Mwst = Nettobetrag * 0.19
Bruttobetrag = Nettobetrag + Mwst
MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
End Sub
|