Sie haben in VBA eine Funktion erstellt, die Sie nun auch in anderen Arbeitsmappen verwenden möchten. Sie müssten nun eigentlich immer zuerst die Datei öffnen, in der diese Funktionen definiert sind, damit Sie diese Funktionen in allen Arbeitsmappen zur Verfügung haben, oder die Funktion in der persönlichen Arbeitsmappe PERSONL ablegen. Doch es geht auch anders: Machen Sie doch einfach ein Add-In daraus! Wie das funktioniert, zeigen wir Ihnen mithilfe einfacher Beispielfunktionen anhand von Excel 2007.

Dieser Lösungsweg funktioniert auch in anderen Excel-Versionen. Sie müssen dann aber damit rechnen, dass sich die notwendigen Befehle an anderer Stelle befinden.

Beispiel-Funktionen

Die Funktionen sind einfache Berechnungen mit dem Mehrwertsteuersatz von 7 und 19 Prozent.

Die sechs Beispielfunktionen berechnen je nach angewendeter Mehrwertsteuer von 7 oder 19 Prozent Brutto vom Netto, Netto vom Brutto oder ermitteln die Mehrwertsteuer aus den Bruttobeträgen.

Öffnen Sie die Übungsdatei MehrWertSt.xlsm. Aktivieren Sie die Makros und wechseln Sie in den VBA Editor. In Modul1 finden Sie die folgenden Funktionsdefinitionen:

Option Explicit
Function Brutto7(Netto As Currency) As Currency 
'Berechnet aus Netto 
'den Bruttowert mit 7 Prozent Mehrwertsteuer 
Brutto7 = Netto * 1.07
End Function

Function Brutto19(Netto As Currency) As Currency 
'Berechnet aus Netto 
'den Bruttowert mit 19 Prozent Mehrwertsteuer 
Brutto19 = Netto * 1.19
End Function

Function Netto7(Brutto As Currency) As Currency 
'Berechnet aus Brutto 
'den Nettowert mit 7 Prozent Mehrwertsteuer 
Netto7 = Brutto - Brutto / 107 * 7 
End Function

Function Netto19(Brutto As Currency) As Currency 
'Berechnet aus Brutto 
'den Nettowert mit 19 Prozent MehrwertSteuer
Netto19 = Brutto - Brutto / 119 * 19 
End Function

Function MwSt7(Brutto As Currency) As Currency 
'Berechnet aus Brutto 
'die enthaltene 7%ige Mehrwertsteuer 
MwSt7 = Brutto / 107 * 7 
End Function

Function MwSt19(Brutto As Currency) As Currency 
'Berechnet aus Brutto 
'die enthaltene 19%ige MehrwertSteuer 
MwSt19 = Brutto / 119 * 19
End Function

Beispiel-Funktionen als Add-In installieren

Diese Funktionsdefinitionen wandeln Sie jetzt in ein so genanntes Add-In um, um sie in allen Ihren Arbeitsmappen verwenden zu können.