' in einer beliebigen Zelle (die für Zeilenumbruch formatiert ist) so nutzen:
'
' =TEXTVERBINDEN(A1:A7,ZEICHEN(10))
'
' Alle Werte der Zellen im Bereich A1:A7, die nicht leer sind
' werden nun mit einem Zeilenumbruch verbunden und in die Ausgabezelle geschrieben.
'
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