Benannte Parameter

[snb]

z.B.

PHP-Code:

Sub M_snb()
    MsgBox F_snb("Maier", Ort:="Hamburg")
    MsgBox F_snb("Maier", Ort:="Hamburg", PLZ:="80445")
    MsgBox F_snb("Maier", Vorname:="Ernst", Ort:="Hamburg", PLZ:="80445")
    MsgBox F_snb("Maier", "Ernst", 80445, "Hamburg")
    MsgBox F_snb("Maier")
End Sub


Code:

Function F_snb(Name, Optional Vorname As String, Optional PLZ As String, Optional Ort As String)
  F_snb = Name & IIf(Vorname = "", "", ", " & Vorname) & IIf(PLZ & Ort = "", "", vbLf & Trim(PLZ & " " & Ort))
End Function

[schauan]

@Ralf,

mal in Richtung von Deinem ersten Ansatz:
...
Ausgabe = WorksheetFunction.TextJoin(", ", 1, Name, Vorname)
Ausgabe = WorksheetFunction.TextJoin(vbLf, 1, Ausgabe, PLZ, Ort)
...

[Egon12]

Hallo,

oder so?

Code:

Sub Adresse(Name As String, Optional Vorname As String, Optional PLZ As String, Optional Ort As String)
    Dim eins: eins = WorksheetFunction.TextJoin(", ", 1, Name, Vorname)
    If PLZ <> "" Then PLZ = PLZ & " "
    MsgBox eins & vbLf & WorksheetFunction.TextJoin("", 1, PLZ, Ort)
End Sub

so ich es richtig verstanden habe.

Gruß Uwe

[RPP63]

Einen will ich auch noch.

Code:

Sub Adresse(Name As String, Optional Vorname As String, _
        Optional PLZ As String, Optional Ort As String)
    Dim eins$, zwei$
    eins = WorksheetFunction.TextJoin(", ", 1, Name, Vorname)
    zwei = Trim(PLZ & " " & Ort)
    MsgBox Join(Array(eins, zwei), vbLf)
End Sub