Public Function textverbinden(bereich As Range, delimiter As String)
    Dim z As Variant
    Dim t As String
    Dim i As Integer

    i = 1
    t = ""

    For Each z In bereich

        If z.Value <> "" Then 'nur zellen mit inhalt einbeziehen

            t = t & z.Value ' Text der Zelle anhängen
            Debug.Print t & " " & i
            If bereich.Count > i Then
                t = t + Chr(10)
            End If

        End If

        i = i + 1

    Next z

    textverbinden = t

End Function