Hallo zusammen,

zur Zeit bin ich im Studium zur Fachinformatikerin/Anwendungsentwicklung.

Ich habe eine Aufgabe zu erfüllen, wo mehrere Berechnungen definiert werden, die dann in der Inbox angezeigt werden sollen.

Soweit funktioniert dies, aber in der Inbox wird die Mwst und das Brutto mit der Ziffer 0 angezeigt, also die Berechnungen werden nicht ausgeführt.

Folgendes habe ich probiert:

Sub Steuerprogramm()

    WertEingabe
    
    RabattBerechnen
    
    MwstBerechnen
    
    BruttoBerechnen
    
    MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."

End Sub

Sub WertEingabe()

    Dim Nettobetrag As Double
    Dim Mwst As Single
    Dim Bruttobetrag As Double
    
        Nettobetrag = InputBox("Bitte geben Sie den Endbetrag der Rechnung ein:")
        
    MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
    
End Sub

Function RabattBerechnen(Nettobetrag As Double)

    If Nettobetrag > 500 Then
        Nettobetrag = Nettobetrag * 0.9
    End If

End Function

Function MwstBerechnen(Mwst As Single, Nettobetrag As Double)

    Mwst = Nettobetrag * 0.19

End Function

Function BruttoBerechnen(Bruttobetrag As Double, Mwst As Single, Nettobetrag As Double)

    Bruttobetrag = Nettobetrag + Mwst

End Function

Auch dies habe ich ausprobiert:

Sub Steuerprogramm()

    WertEingabe
    
    RabattBerechnen
    
    MwstBerechnen
    
    BruttoBerechnen
    
    MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."

End Sub

Sub WertEingabe()

    Dim Nettobetrag As Double
    Dim Mwst As Single
    Dim Bruttobetrag As Double
    
        Nettobetrag = InputBox("Bitte geben Sie den Endbetrag der Rechnung ein:")
        
    MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
    
End Sub

Function RabattBerechnen(Nettobetrag As Double, Mwst As Single, Bruttobetrag As Double)

    If Nettobetrag > 500 Then
        Nettobetrag = Nettobetrag * 0.9
    End If

    Mwst = Nettobetrag * 0.19
    Bruttobetrag = Nettobetrag + Mwst
    
End Function

Wo liegt hier der Fehler?????

LG Irina