Argumente - Standardwerte
Setzte explizit Standardwerte für optionale Argumente
Optionale Argumente ohne Standardwerte können bzw. sollten vor ihrer Verwendung geprüft werden:
Sub ShowUserName(Optional ByVal UserCount As Variant) If IsMissing(UserCount) Then UserCount = 0 End Sub
Durch die Vergabe eines Standardwerts ist zum einen die Überprüfung mit IsMissing nicht notwendig zum anderen wird – zumindest im Falle eines Varianten – dessen Typ klar(er).
Sub ShowUserName(Optional ByVal UserCount As Variant = 0)
In diesem Beispiel wird klar, dass es sich um ein nummerisches Argument mit dem Standardwert 0 handelt.