Bedingte Textverkettung mit Trennzeichen Eine Funktion um beliebig viele Texte zu verketten mit seinem jeweiligen Trennzeichen, welches nur dann verwenden wird, wenn der Text nicht leer ist.
Autor:   Jean Pierre Allain	Bewertung:     [ Jetzt bewerten ]	Views:  10.606
www.abiss.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 13 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Häufig müssen Texte mit Trennzeichen Verkettet werden:

[Nachname] & ", " & [Vorname] -> "Allain, Jean Pierre"

Sollte allerdings das Feld [Vorname] null sein, erhält man folgendes:

"Allain, "

Mit IF oder IIF kann man diesen Fall abfangen.

Bei längeren Verkettung wie diese:

[Anrede] & " " & [Titel] & " " & [Vorname] & " " & [Nachname]

wird es schnell unübersichtlich.

Daher habe ich folgende Function dafür erstellt:

Public Function StrConcatDelim(ParamArray Text()) As String
  Dim tmp As String, i As Long
  tmp = Text(0) & ""
  For i = 1 To UBound(Text) Step 2
    If tmp = "" Or Text(i + 1) & "" = "" Then
      tmp = tmp & Text(i + 1)
    Else
      tmp = tmp & Text(i) & Text(i + 1)
    End If
  Next i
  StrConcatDelim = tmp
End Function

Aufrufbeispiel:

Dim sText As String
sText = StrConcatDelim([Anrede], " ", [Titel], " ", [Vorname], " ", [Nachname])
sText = StrConcatDelim([Nachname], ", ", [Vorname])

Beim Aufruf der Funktion ist darauf zu achten, mindestens 3 Parameter oder 5 oder 7 oder 9 usw.. Parameter zu übergeben.