16. Funktionen

Eine benutzerdefinierte Funktion (bF) wird genauso angewendet wie eine in Excel bereits integrierte Tabellenfunktion, z.B. SUMME oder MITTELWERT, wobei man selbst bestimmt, welche Aufgaben die Funktion erfüllt. Umfangreiche bzw. verschachtelte Tabellenformeln oder eine Gruppe von Formeln können durch eine einzige bF ersetzt werden, welche wesentlich einprägsamer und effizienter einzusetzen sind.

16.1 Wirkungsweise einer benutzerdefinierten Funktion

Erstellt werden bF in einem Visual Basic-Modul, indem Sie mathematische Ausdrücke, integrierte Microsoft Excel-Funktionen sowie Visual-Basic-Codes miteinander verbinden. Anschließend stellt man der bF die erforderlichen Werte zur Verfügung. Die Funktion führt die Berechnungen auf Basis dieser Werte durch und liefert einen Wert.
Anmerkung: Eine bF kann nicht nur auf Zahlen und mathematische Ausdrücke, sondern auch auf Text, Datums- und sonstige Werte angewandt werden.

16.2. Unterschiede zum Makro

16.3 Die Bestandteile einer benutzerdefinierten Funktion

Die Funktion Gewinn errechnet den Bruttogewinn aus der Anzahl verkaufter Produkte, den Herstellungskosten pro Stück und dem erzielten Stückpreis. Die Funktion enthält somit 3 Argumente (VerkaufteStückzahl, Kosten und Stückpreis) sowie einen mathematischen Ausdruck.

Bestandteile:

• Die Function- und End Function-Anweisungen. (Visual Basic-Schlüsselwörter für Anfang und Ende der Funktion
• Ein Name. Hierbei handelt es sich um ein eindeutiges Erkennungszeichen der Funktion
• Argumente. Hierbei handelt es sich um die von Ihnen eingegebenen Werte, d.h. die Ausgangsdaten, auf die die Funktion bei der Berechnung zugreift (in einer Klammer eingeschlossenen und jeweils durch ein Listentrennzeichen – Komma - getrennten Argumentnamen)
• Visual Basic-Code und Ausdrücke. Ein Ausdruck ist eine Kombination von Zahlen, Variablen und mathematischen Operatoren, die einen Wert ergibt.
• Der Rückgabewert. Hierbei handelt es sich um einen Wert, den die benutzerdefinierte Funktion nach abgeschlossener Berechnung zurückgibt. Ein Rückgabewert wird durch den nach dem Namen der benutzerdefinierten Funktion eingegeben Ausdruck angegeben. NameDerFunktion = Ausdruck

16.4. Verstehen der Bestandteile einer benutzerdefinierten Funktion

Argumente
Argumente in benutzerdefinierten Funktionen sind mit den Namen vergleichbar, mit denen Sie Zellen in Tabellen definieren. Ein Argument ist ein Variablentyp (Erklärung folgt später). Eine Variable ist ein Name, der einen Wert darstellt. Argumente und Variablen sind die Grundlage für leicht verständliche Ausdrücke in benutzerdefinierten Funktionen.

Mit der folgenden Funktion können Sie den Gewinn nach Abzug der Steuern (Reingewinn) berechnen.
Die Argumente der Funktion sind: VerkaufteStückzahl, Kosten, Stückpreis sowie Einkommensteuersatz. Die
Variablen sind: Bruttogewinn und Reingewinn, wobei es sich bei Reingewinn um eine besondere Variable handelt, da sie den Rückgabewert enthält.

Function Reingewinn(VerkaufteStückzahl, Kosten, Stückpreis, Steuersatz)
Bruttogewinn = VerkaufteStückzahl * (Stückpreis - Kosten)
Reingewinn = Bruttogewinn * (1 - Steuersatz)
End Function

Der Ausdruck, der den Bruttogewinn berechnet, verwendet 3 Argumente der Funktion. Das Ergebnis des Ausdrucks wird in der Variablen Bruttogewinn gespeichert. Der den Reingewinn berechnende Ausdruck verwendet ein Argument sowie die Variable Bruttogewinn; dieses Ergebnis wird in Reingewinn gespeichert.
Sie können auch benutzerdefinierte Funktionen erstellen, die keine Argumente benötigen, beispielsweise einen Wert einer Zelle oder die Tageszeit als Ausgangsdaten. Die beiden integrierten Tabellenfunktionen ZUFALLSZAHL und JETZT benötigen beispielsweise keine Argumente.

Visual Basic-Ausdrücke
Ausdrücke sind mit Formeln vergleichbar, die man in Tabellen eingibt.

Diese nächste Funktion errechnet die Provision, die ein Wertpapierhändler einer Bank beim Verkauf von Aktien erhält, wobei die Provisionsrate je nach gesamtem Verkaufspreis variiert. Die normale Provisionsrate beträgt 25 € plus 0,30 € pro Aktie. Bei Transaktionen, die 15.000 € übersteigen, wird jedoch ein 10%iger
Mengenrabatt gewährt, so dass lediglich 90 % der verkauften Aktien in die Provisionsberechnung einfließen.

Function MaklerProvision(VerkaufteAktien, PreisJeAktie)
GesamtVerkaufspreis = VerkaufteAktien * PreisJeAktie
If GesamtVerkaufspreis <= 15000 Then MaklerProvision = 25 + 0.3 * VerkaufteAktien
Else: MaklerProvision = 25 + 0.3 * (0.9 * VerkaufteAktien)
End If
End Function

Rückgabewerte
Ein Rückgabewert wird angegeben, indem Sie hinter dem Namen einer benutzerdefinierten Funktion einen Wert oder einen mathematischen Ausdruck eingeben. Mindestens eine Zeile in der Funktion muss die Form NameDerFunktion = Ausdruck aufweisen.

16.5. Erstellen einer benutzerdefinierten Funktion

Visual-Basic-Editor aufrufen

1. Geben Sie Function gefolgt vom Namen der bF ein.
2. Geben Sie dann die einzelnen Argumente ein. Schließen Sie diese in eine Klammer ein, und trennen Sie die Argumente durch das entsprechende Listentrennzeichen (Komma).
3. Drücken Sie EINGABE, um in die nächste Zeile zu gelangen. Excel überprüft nun die Syntax der von Ihnen eingegebenen Zeile. Die Farbe der Visual Basic-Schlüsselwörter wechselt anschließend zu blau bzw. einer zuvor festgelegten Farbe.
4. Drücken Sie TAB, geben Sie die erste Codezeile ein, und drücken Sie anschließend wieder EINGABE. Durch Drücken von TAB wird die Codezeile eingerückt, wodurch der Code besser strukturiert und einfacher zu lesen ist.
5. Geben Sie die verbleibenden Zeilen des Codes ein.
6. Geben Sie Ende Funktion ein, und drücken Sie dann EINGABE.

16.6. Verwenden einer benutzerdefinierten Funktion

Eine bF wird genauso verwendet wie eine integrierte Microsoft Excel-Funktion.

1. Geben Sie in die gewünschte Zelle ein Gleichheitszeichen (=) und direkt dahinter den Namen der Funktion sowie eine linke Klammer ein.
2. Geben Sie dann für die einzelnen Argumente die gewünschten Werte ein trennen Sie diese durch das entsprechende Listentrennzeichen, und schließen Sie die Funktion mit einer rechten Klammer ab.
3. Drücken Sie EINGABE oder verwenden sie den Funktionsassistenten (Kategorie: Benutzerdefiniert).
   
   
   
   

16.7. Gültigkeitsbereich von Prozeduren und Funktionen

Prozeduren und Funktionen sind standardmäßig Öffentlich, wenn sie nicht explizit mit Privat festgelegt werden. Wird (zusätzlich) Statisch angegeben, so bleiben die Werte lokaler Variablen zwischen den Aufrufen der Funktion oder Prozedur erhalten.

16.8. Anweisungen

Eine Anweisung ist die kleinste Einheit von Code und Operatoren, die eine Aktion, Definition oder Deklaration ermöglichen. Beispiele dafür sind:

Wert1=5

Produkt=Wert1*Wert2

x=Application.Max(5,12)

Open "TESTDAT.XLS"

Unterprozedur Wert1, Wert2

y=MeineFunktion(a,b,c)

DIM MeineVariable As Integer

Mehrere Anweisungen pro Zeile macht Code unübersichtlich, es ist aber möglich, wenn Sie nach jeder Anweisung einen Doppelpunkt setzen.

Wert1 = 5: Wert2 = 8: Produkt = Wert1 * Wert2

Anweisungen, die wegen ihrer Länge mehr als eine Zeile Code brauchen am Ende ein Leerzeichen gefolgt von einem Unterstrich.

	Unterprozedur Wert1, _
    	Wert2

16.9. Beispielquelltexte

Function Bruttogewinn(VerkaufteStückzahl, Kosten, Stückpreis)
  Bruttogewinn = VerkaufteStückzahl * (Stückpreis - Kosten)
End Function

Function Reingewinn(VerkaufteStückzahl, Kosten, Stückpreis, Steuersatz)
  Bruttogewinn = VerkaufteStückzahl * (Stückpreis - Kosten)
  Reingewinn = Bruttogewinn * (1 - Steuersatz)
End Function


Function MaklerProvision(VerkaufteAktien, PreisJeAktie)
  GesamtVerkaufspreis = VerkaufteAktien * PreisJeAktie
  If GesamtVerkaufspreis <= 15000 Then MaklerProvision = 25 + 0.3 * VerkaufteAktien
    Else: MaklerProvision = 25 + 0.3 * (0.9 * VerkaufteAktien)
  End If
End Function

Function Provision(Aktienanzahl, Aktienpreis)
  Gesamtpreis = Aktienanzahl * Aktienpreis
  If Gesamtpreis <= 4000 Then
    Provision = Gesamtpreis * 0.2
    Else: Provision = Gesamtpreis * 0.3
  End If
End Function

Function SichereWurzel(Number)
  TempWert = Abs(Number)
  SichereWurzel = Sqr(TempWert)
End Function