Listbox, mehrspaltig, List oder AddItem
22.01.2003 11:15:12
Tom
ich fülle die Listbox1 mit 2 Spalten: 1. Spalte eine Zahl, 2.Spalte ein Text. MutliSelect steht auf fmMultiSelectMulti. Durch eine Schaltfläche sollen nun die selektierten Werte in die Listbox2 übernommen werden. Der Code:
Private Sub CommandButton1_Click()
ListBox2.Clear
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End Sub
Auch Listbox2 steht auf 2spaltig. Aber es wird in Listbox2 immer nur der Wert aus der 1. Spalte (also die Zahl) übernommen, Spalte 2 bleibt leer.
Das Beispiel entspricht dem aus der integrierten Hilfe von Excel, allerdings finde ich nichts, wie ich beide Spaltenwerte in Listbox2 übernehmen kann.
Wer kennt eine Lösung?
Besten Dank im voraus!
Tom