VBA - PROGRAMMIERUNG

OPTIONALE PARAMETER

Public Function Vorgestern() ' ohne Parameter
Vorgestern = Date - 2
End Function

Public Function Vorgestern2(Optional Datum) ' ein optionaler Parameter
Datum = IIf(IsMissing(Datum), Date, Datum)
Vorgestern2 = Datum - 2
End Function


Function PLZBereich(PLZ As String, Optional Land)
' ein Standard- und ein optionaler Parameter
Land = IIf(IsMissing(Land), "Deutschland", Land)
If Land = "Deutschland" Then
    PLZBereich = "D" & "-" & Left(PLZ, 2)
Else
    PLZBereich = Land & "-" & PLZ
End If
End Function

Public Function PLZBereich2(PLZ As String, Optional Land As String = "Deutschland")
' ein optionaler Parameter mit Default-Zuweisung
If Land = "Deutschland" Then
    PLZBereich2 = "D" & "-" & Left(PLZ, 2)
Else
    PLZBereich2 = Land & "-" & PLZ
End If
End Function