Tipp: Lösungsdateien
Wir bieten zusätzlich zum PDF zwei Übungsdateien zum Download an (.zip, 26 KB), die Sie zunächst herunterladen und entpacken sollten.
VBA: Benutzerdefinierte Funktionen als Add-Ins für alle Excel-Arbeitsmappen verfügbar machen
Diese Seite bookmarken:
Diesen Artikel als
PDF herunterladen (nur für Mitglieder von akademie.de).
Von Dieter Frommhold
Beispiel-Funktionen | Beispiel-Funktionen als Add-In installieren
(25.05.2009) 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<br ></br>Function Brutto7(Netto As Currency) As Currency <br ></br>'Berechnet aus Netto <br ></br>'den Bruttowert mit 7 Prozent Mehrwertsteuer <br ></br>Brutto7 = Netto * 1.07<br ></br>End Function<br ></br><br ></br>Function Brutto19(Netto As Currency) As Currency <br ></br>'Berechnet aus Netto <br ></br>'den Bruttowert mit 19 Prozent Mehrwertsteuer <br ></br>Brutto19 = Netto * 1.19<br ></br>End Function<br ></br><br ></br>Function Netto7(Brutto As Currency) As Currency <br ></br>'Berechnet aus Brutto <br ></br>'den Nettowert mit 7 Prozent Mehrwertsteuer <br ></br>Netto7 = Brutto - Brutto / 107 * 7 <br ></br>End Function<br ></br><br ></br>Function Netto19(Brutto As Currency) As Currency <br ></br>'Berechnet aus Brutto <br ></br>'den Nettowert mit 19 Prozent MehrwertSteuer<br ></br>Netto19 = Brutto - Brutto / 119 * 19 <br ></br>End Function<br ></br><br ></br>Function MwSt7(Brutto As Currency) As Currency <br ></br>'Berechnet aus Brutto <br ></br>'die enthaltene 7%ige Mehrwertsteuer <br ></br>MwSt7 = Brutto / 107 * 7 <br ></br>End Function<br ></br><br ></br>Function MwSt19(Brutto As Currency) As Currency <br ></br>'Berechnet aus Brutto <br ></br>'die enthaltene 19%ige MehrwertSteuer <br ></br>MwSt19 = Brutto / 119 * 19<br ></br>End Function<br ></br>
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 von akademie.de lesen Sie den ganzen Beitrag. [Zum Login]
Sie sind noch nicht Mitglied bei akademie.de? Testen Sie einfach 14 Tage gratis unser Angebot! Nach der Anmeldung erhalten Sie sofort Zugriff auf 99% aller Beiträge.
Ihre Mitgliedschaft können Sie 14 Tage lang stornieren - eine E-Mail mit "Storno" im Betreff genügt schon. Ausführliche Informationen zum Mitgliederabo und den Vorteilen finden Sie auf unseren Seiten "Mitglied werden" und den "AGB".
Die Anmeldung benötigt nur drei Minuten:
Mehr zum Thema ...
Folgende Artikel könnten Sie auch interessieren:
| Message: | A server error has occurred. |
| Description: | Check server response code in details. |
| Details: |
|
Kommentieren, bewerten, Fragen an den Autor: "Benutzerdefinierte Funktionen als Add-Ins für alle Arbeitsmappen"
Durchschnittliche Bewertung:
Anzahl der Bewertungen: 0
