Mit dieser benutzerdefinierten Funktion errechnen Sie auf einfache Weise aus einem Nettobetrag den Betrag incl. Mehrwertsteuer. Das Ergebnis wird korrekt auf 2 Dezimalstellen gerundet.
Bei dieser Funktion können Sie zwei Werte angeben, den Nettobetrag und den Steuerprozentsatz.


Public Function BruttoMwst(Betrag, Optional SteuerSatz As _

Single = 0.16)

Brutto = Betrag * (1 + SteuerSatz)
BruttoMwst = Excel.Application.Round(Brutto, 2)

End Function

Der zweite Parameter „SteuerSatz“ ist optional, das heißt, wenn Sie nur den Nettobetrag angeben, dann wird ein Bruttobetrag mit 16% Mehrwertsteuer berechnet. Sie können aber alternativ jeden beliebigen Prozentsatz angeben, dann bleibt der vorgegebene Satz von 16% unberücksichtigt.

Optionale Werte können Sie bestimmen, indem Sie in der Funktion vor dem Parameter das Wort „Optional“ stellen.

Gerundet wird mit der Runden-Funktion von Excel. Der Befehl muss in englisch angegeben werden, mit einem Verweis auf die Anwendung: „Excel.Application.Round“

Weitere Informationen zur Funktionserstellung finden Sie im VBA- Kurs – Benutzerdefinierte Funktionen