Zellbereich verketten

Diese Funktion kann in ein beliebiges Modul in VBA eingefügt werden. In der Zelle steht dann z.B. die Formel =verketten2(A1:A100;”,”)

 


Public Function verketten2(ByRef rngBereich As Range, strTrennzeichen As String) As Variant
Dim rng As Range
Dim strTextkette As String

For Each rng In rngBereich
If rng <> "" Then
strTextkette = strTextkette & rng & strTrennzeichen
End If
Next
If Len(strTextkette) > 0 Then
strTextkette = Left(strTextkette, Len(strTextkette) - Len(strTrennzeichen))
Verketten2 = strTextkette
End If

End Function