Verketten / Zeileumbruch

Function TextZusammenfuegen(rZellen As Range) As String
Dim iSpalte As Long, sText As String
For iSpalte = 1 To rZellen.Columns.Count
If rZellen.Cells(1, iSpalte).Text  "" Then
Select Case iSpalte
Case 1 '1. Spalte
sText = rZellen.Cells(1, iSpalte) & Chr(10) & Chr(10)
Case rZellen.Columns.Count 'letzte Spalte
sText = sText & Chr(10) & rZellen.Cells(1, iSpalte).Text
Case Else
sText = sText & "- " & rZellen.Cells(1, iSpalte).Text & Chr(10)
End Select
End If
Next
TextZusammenfuegen = sText
End Function