Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
    Dim rng As Range
    For Each rng In bereich
        If rng <> "" Then
            Verketten2 = Verketten2 & rng & Trennzeichen
        End If
    Next
    If Len(Verketten2) > 0 Then _
        Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function