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