Hallo

und zwar möchte ich aus bisher einem Array mit mehreren Werten ein verzweigtes Array bilden. Also ein array bei dem jeder der bisher aneinander gereihten Werte ein einzelnes Array im "großen" Array darstellt.

Da der Code für das einfach Array schon besteht denke ich, dass dies der Abschnitt ist, der geändert werden muss

      
t = 3
    While Not IsEmpty(Worksheets("Tabellenblatt1").Cells(3, t))
        tester = False
        Inputstring = vbTab & vbTab & Inputstring & "[" & """" & Worksheets("Tabellenblatt1").Cells(3, t).Value & """" & "," & "[" & """" & "test_1" & """" & ","
        
      
       For j = 4 To 20
            If Worksheets("Tabellenblatt1").Cells(j, t).Value = "x" Then
                Inputstring = Inputstring & Worksheets("Tabellenblatt1").Cells(j, 2).Value
                tester = True
            End If

       Next j
       If tester = True Then
             length = Len(Inputstring)
             Inputstring = Left(Inputstring, length - 1) & "]]," & vbNewLine & vbTab & vbTab & vbTab & vbTab
        Else
             length = Len(Inputstring)
             Inputstring = Left(Inputstring, length - 1) & "]]," & vbNewLine & vbTab & vbTab & vbTab & vbTab
        
End If

Ne kurze Lösung bzw. ein Ansatz wären supe :)

Viele Grüße
Andi