VBA – Programmierung mit Excel Grundlagen
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Seite 56<br />
Unterprogrammtechnik<br />
Die Angabe AS TYP bestimmt den Typ der Funktion, genauer gesagt, den Typ des<br />
Rückgabewertes. Dieser wird der Funktion innerhalb des Funktionskörpers über die<br />
Anweisung<br />
Funktionsname = Ausdruck<br />
zugewiesen. Funktionstyp und der Typ des Rückgabewertes (in der Zuweisung) müssen<br />
übereinstimmen.<br />
Wird der Rückgabewert nicht explizit zugewiesen, gibt eine Funktion einen Standardwert<br />
zurück. Dieser entspricht dem definierten Typ der Funktion <strong>–</strong> numerisch der Wert 0, String<br />
ein Leerstring " ", Variant dert Typ Empty.<br />
Funktionen können<br />
• wie Sub <strong>–</strong> Prozeduren (<strong>mit</strong> oder ohne Argumente) aufgerufen werden:<br />
Ausgabe<br />
Ausgabe "Hagen", 58084<br />
Bei der Argumentenübergabe sind hier keine Funktionsklammern erforderlich<br />
• in Ausdrücken verwendet werden:<br />
MsgBox Ausgabe("Hagen", 58084)<br />
Feld1 = Ausgabe("Hagen", 58084)<br />
Feld1 = Feld2 - Ausgabe("Hagen", 58084)<br />
Bei der Argumentenübergabe sind hier Funktionsklammern erforderlich<br />
Beispiel für eine benutzerdefinierte Funktion:<br />
Function Brutto(ByVal Netto As Single) As Single<br />
Mwst = 0.16<br />
If VarType(Netto) = 4 Then<br />
Ergebnis = Netto + Netto * Mwst<br />
Else<br />
MsgBox "Nettoangabe falsch"<br />
End If<br />
Brutto = Ergebnis<br />
End Function<br />
Nach dem Aufruf:<br />
Sub Testen<br />
MsgBox Brutto(123.75)<br />
End Sub<br />
präsentiert die MsgBox das Ergebnis:
Change language