Verschachtelte For-Schleifen
22.07.2019 10:55:09
Waldemar
erneut habe ich ein Problem. Aber Vorweg der Code
For rowCount = Cells(8192, 1).End(xlUp).Row To 2 Step -1
For Each StueckText In Split(Cells(rowCount, colIndx).Value, vbLf)
With Cells(rowCount, colIndx)
xStrLen = Len(.Text)
xChrLen = Len(Replace(.Text, Chr(10), ""))
breakCount = xStrLen - xChrLen
End With
rowItem(breakCount) = StueckText
Next Stuecktext
Next
Das Ziel ist es von jeder Zeile in einer Spalte (Überschrift ausgeschlossen) die verschiedenen Strings, die mit einem manuellen Zeilenumbruch getrennt werden, in ein Array zu schreiben.Der Code ist soweit ich weiß nicht richtig, aber ich würde ihn per Lokalfenster auswerten und korrigieren. Soweit kommt es jedoch nicht, da die zweite Forschleife komplett ignoriert wird, und ich nicht nachvollziehen kann warum.
Für die Hilfe bedanke ich mich im voraus.
Waldi