Excel VBA Eigene Funktion erstellen

In Excel kann man schnell komplizierte Formeln erstellen, damit diese einfacher und übersichtlicher werden, kann man auch eigene Funktion in VBA schreiben.

Hier ein Beispiel für die Berechnung der Prozentualen Abweichung von IST zu Vorjahr

Option Explicit

Public Function prozent(source As Double, target As Double)

prozent = Application.WorksheetFunction.IfError(IIf(target < 0, (source - target) / -target, (source - target) / target), 0)

End Function

=prozent(Quellfeld;Zielfeld)

Wie man sehen kann, eine sehr einfache Formel. Dazu das Beispiel als Excelformel

=Wennfehler(Wenn(Zielfeld < 0;(Quellfeld - Zielfeld) / - Zielfeld;(Quellfeld - Zielfeld / Zielfeld), 0)

= (IST) 215 - (VJ) 204 / (VJ) 204  = 0,055 = 5,5 %

Wie man sieht ist die erste Formel leserlicher und kann ggf. einfach mit einer anderen Formel kombiniert werden.