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
|