VBA: Funktionen für alle Excel-Arbeitsmappen verfügbar machen

Erstellen Sie doch einfach ein Add-In!

Ersten Kommentar schreiben
Stand: 19. August 2011

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.

Lösungsdateien

Wir bieten zusätzlich zum PDF zwei Übungsdateien zum Download an (.zip, 26 KB), die Sie zunächst herunterladen und entpacken sollten.

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.

Als Mitglied können Sie diesen Beitrag weiterlesen!

Werden Sie Mitglied und testen Sie akademie.de 14 Tage lang kostenlos!

In den ersten 14 Tagen haben Sie Zugriff auf alle Inhalte auf akademie.de, außer Downloads. Sie können in dieser Zeit ohne Angabe von Gründen stornieren. Eine E-Mail an service@akademie.de genügt. Nur wenn Sie Mitglied bleiben, wird der Mitgliedsbeitrag nach Ende der 14tägigen Stornofrist abgebucht.

Ich bin bereits Mitglied
Jetzt Mitglied werden und akademie.de 14 Tage kostenlos testen
Ich entscheide mich für folgende Zahlungsweise:
14 Tage Stornorecht:
Ich kann meine Mitgliedschaft in den ersten 14 Tagen jederzeit formlos stornieren, z.B. per E-Mail an service@akademie.de.

Über den Autor:

bild117282

Dieter Frommhold, Jahrgang 1943, Diplom-Lehrer für Physik und Mathematik, Verlagslektor und Programmierer. Seit 1971 langjährige Lehrtätigkeit über Betriebssysteme und Programmierung.

Ab 1994 arbe ...

Newsletter abonnieren