Verschachtelte Schlefe um Werte zu trennen
08.11.2017 22:11:34
Squirrel
Jetzt stehe ich aber in einer Sache auf dem Schlauch resp. hänge in einer Schleife fest ;)
Ich benutze eine For Schleife um Werte aus einer Zelle zu trennen und in einzelne Zellen zu schreiben. Das funktioniert so weit so gut. Jedoch müsste der 6 -10te Wert und der 11 - 15te Wert an einem anderen Ort gespeichert werden als die Werte 1 -5. Irgendwie krieg ich das nicht hin.
Hier der funktionierende Code der aber alles untereinander schreibt:
For a = LBound(strTeilstring) To UBound(strTeilstring)
'** Array-Elemente nacheinander eintragen
Worksheets("Empfänger").Cells(lngZ, 4).Value = Trim(strTeilstring(a))
'** Zeilenzähler erhöhen
lngZ = lngZ + 1
Next a