Listbox.Item komplett in 2. Listbox kopieren
13.10.2016 09:43:54
Marc
ich möchte gerne das jeweils ausgewählte Item aus einer Listbox komplett in eine 2. Listbox kopieren. Das funktioniert auch gut mit der folgenden Sub:
Private Sub CommandButton1_Click()
a = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem
ListBox2.List(a,0) = ListBox1(i,0)
ListBox2.List(a,1) = ListBox1(i,1)
ListBox2.List(a,2) = ListBox1(i,2)
a = a +1
Next i
End Sub
Leider ist der Index relativ gross, ich frage mich nun, ob ich nicht alles in einem Schritt übernehmen kann:
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub
So kopiert er mir aber leider nur ListBox1.List(i,0). Gibt es die Möglichkeit, alle Index-Positionen in einem Schritt zu übernehmen?
Sorry, ich hoffe, ich habe das verständlich ausgedrückt...;-). Danke für Eure Hilfe!