Grundlagen der Programmierung mit VBA Visual Basic for

Rot_schalten 1 'Aufruf der Prozedur
End Sub
3.2.2 Funktionen
Funktionen geben einen Wert zurück. Der Wert wird einer Variablen mit dem Namen der Funktion
zugewiesen.
Syntax
[Public|Private][Static] Function FktName (Parameterliste) [As Typ]
[Anweisungen]
FktName = Ergebnisausdruck
End Function
Vergleich.
FORTRAN: [Typ] Function FktName (Parameterliste)
[Anweisungen]
FktName = Ergebnisausdruck
Return
End
C: Typ function FktName (Parameterliste)
{ ...
return(Ergebniswert);
}
Beispiel.
Function StatusRot() As Integer
' gibt die aktuelle Farbe des Rotlichtes zurück
ActiveSheet.Shapes("Oval 79").Select
StatusRot = Selection.ShapeRange.Fill.ForeColor.SchemeColor
End Function
Sub TestRot()
Dim Farbe As Integer
Farbe = StatusRot ' Funktionsaufruf rechts vom Komma
End Sub
Zusätzlich wurde hier der Datentyp Integer verwendet. Siehe dazu weiter unten.
3.2.3 Parameter
Einfache Parameter.
Syntax
Sub Name (Para1 [As Typ], Para2 [As Typ], ...)
Parameter werden durch Komma getrennt. Der Datentyp kann explizit vereinbart werden. Beim Aufruf
muß auf die Identität der Datentypen geachtet werden. Die Anzahl der Parameter muß bei jedem Aufruf
der Definition entsprechen.
Optionale Parameter.
Syntax
Sub Name (Para1 [As Typ], Optional Para2 [As Typ], ...)
Optionale Parameter können beim Aufruf weggelassen werden. Sie müssen am Ende der Parameterliste
vereinbart werden. Folgende Aufrufe sind für das Beispiel möglich:
Name 100
Name 100, 50
Parameter-Array.
Syntax
Sub Name (Para1 [As Typ], ParamArray arg() As Variant)
20