Thema Datum  Von Nutzer Rating
Antwort
28.05.2021 12:47:00 Irina
Solved
28.05.2021 12:58:23 Gast78026
NotSolved
Rot Berechnungen mit mehreren Funktionen
 28.05.2021 15:24:59 Gast48660
NotSolved
28.05.2021 15:41:10 Gast82708
NotSolved
01.06.2021 10:34:29 Irina
NotSolved

Ansicht des Beitrags:
Von:
Gast48660		 Datum:
28.05.2021 15:24:59		 Views:
451		 Rating:
     
Antwort:
  Ja
Thema:
Berechnungen mit mehreren Funktionen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.05.2021 12:47:00 Irina
Solved
28.05.2021 12:58:23 Gast78026
NotSolved
Rot Berechnungen mit mehreren Funktionen
 28.05.2021 15:24:59 Gast48660
NotSolved
28.05.2021 15:41:10 Gast82708
NotSolved
01.06.2021 10:34:29 Irina
NotSolved