Ich habe diese Funktion von hier und möchte fragen, ob man da irgendwie in diese Verkettung einen automatischen Zeilenumbruch reinbekommt um bei einer Breite von 70 alle Daten auf einen Blick hat.
Danke im voraus
chris
Formel:
=VERKETTEN2(A2:B28;" ")
Funtion:
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