SPLIT und mehrspaltige Listbox
19.03.2009 15:10:46
Specke
ich glaube, ich habe heute schon zuviel am Rechner gesessen, denn im Moment habe ich ein Brett vor dem Kopf.
Ich habe eine Liste mit Strings. Diese sehen so aus AAA##BBB##CCC usw. Dabei können unterschiedlich viele ## vorkommen (maximal 6)
Ich möchte diese Daten jetzt linksbündig in eine 6spaltige Listbox einfügen und hatte das in etwa so vor
Sub Einfuegen()
For i = 1 To colWerte(1).Count
tmpArr = Split(colWerte(1).Item(i), "##")
For j = 0 To UBound(tmpArr)
lstWahl.AddItem tmpArr(j)
lstWahl.List(i, 1) = tmpArr
Next j
Next i
End Sub
Aber wie weiter bei ?
Für jeden Ausgangsstring soll eine Zeile in die Listbox eingefügt werden und die durch ## getrennten Werte sollen in den Spalten von Links beginnend eingetragen werden.
AAA##BBBB##CC ergibt
Spalte1 Spalte2 Spalte3 Spalte4 Spalte5 Spalte6
AAA BBBB CC
Danke und Gruß
Specke
Anzeige