Hallo,

weiß nicht ganz, ob ich Dich richtig verst. habe, aber probier mal, es werden alle Werte genommen...

Option Explicit

Public Sub test()
Dim objCell As Range
Dim avntArray1() As Variant, avntArray2() As Variant
Dim strOutput As String
For Each objCell In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
   With objCell
        avntArray1 = Range(Cells(.Row, 3), Cells(.Row, Cells(.Row, Columns.Count).End(xlToLeft).Column)).Value
        With WorksheetFunction
             avntArray2 = .Transpose(.Transpose(avntArray1))
        End With
        strOutput = "[" & Join$(SourceArray:=avntArray2, Delimiter:=",") & "]"
        Cells(.Row, 2).Value = strOutput
   End With
Next
End Sub

Gruß,