MwSt-Ermittlung
Paulo
es kann mir jemand weiterhelfen. Danke. Paulo
Sub MwStErmittlung()
BetragEingabe:
Betrag = InputBox(Prompt:="Bitte Betrag eingeben: 0,00" _
+ Chr(13) + " (mit Dezimalkomma)" _
+ Chr(13) + Chr(13) + "Ergebnis = 19 % MwSt" + Chr(13) + "auf eingegebenen Betrag", _
Title:=" MwSt - Ermittlung", Default:="100,00")
If Betrag = "" Then
'Beep
GoTo Teil2
Else
GoTo Teil1
End If
Teil1:
If MwSt = 7 Then MwSt = Betrag * 7 / 100 _
Else MwSt = Betrag * 19 / 100
Beep
u_return = MsgBox(Prompt:="Eingabe-Betrag: " + Format(Betrag, "#,##0.00 ") + _
Chr(13) + Chr(13) + "Ergibt MwSt: " + Format(MwSt, "#,##0.00 "), _
Buttons:="65", Title:=" Ergebnis:")
If u_return = 1 Then GoTo BetragEingabe
Teil2:
End Sub
Fehler beim Kompilieren: ("Format" im Teil1 wurde farbig unterlegt)
Variable oder Prozedur anstelle eines Moduls erwartet