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
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
Anzeige