CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_vkette2.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

Public Function VERKETTEN2(ByVal Bereich As Range, ByVal Trennzeichen As String) As Variant
  Dim oCell As Object
  Dim sVerkettung As String
  Dim blnFlag As Boolean
    
    On Error Resume Next
    
    sVerkettung = ""
    blnFlag = False
    For Each oCell In Bereich.Cells
        If Trennzeichen = "" Or IsNull(Trennzeichen) = True Or IsEmpty(Trennzeichen) = True Then
            sVerkettung = sVerkettung & CStr(oCell.Value)
        Else
            If blnFlag = False Then
                sVerkettung = sVerkettung & CStr(oCell.Value)
                blnFlag = True
            Else
                sVerkettung = sVerkettung & CStr(Trennzeichen) & CStr(oCell.Value)
            End If
        End If
    Next oCell
    
    VERKETTEN2 = sVerkettung
    
    If Err.Number <> 0 Then
        VERKETTEN2 = CStr("#FEHLER (" & Err.Description & ")")
        Err.Clear
    End If
    
    On Error GoTo 0
    
End Function