VBA Listbox kopieren und löschen ( Multiselect)
17.04.2015 14:42:05
Tobias
Guten Tag,
ich bin blutiger Anfänger und habe ein kleines Problem. Ich habe zwei Listboxen und würde gerne mit einem Knopf die Namen die selektiert sind, in die zweite Liste "verschieben".
Ich habe schon soviele Foren durchsucht, und auch Lösungen gefunden, die weiß Gott warum nicht _
bei mir funktionieren.
Private Sub agency_addbutton_CargoToX_Click()
agency_listbox_2.items.Add (agency_listbox_1.Selected.tostring)
End Sub
Die Version makiert selected und sagt Selected ist nicht optimal.
Auch Version zwei aus Foren zusammengesucht funktioniert leider nicht, Methode oder Datenobjekt _
nicht gefunden. Dabei ist SelectedItems markiert.
Private Sub agency_addbutton_CargoToX_Click()
For i = 0 To agency_listbox_1.ListCount - 1
If agency_listbox_1.Selected(i) Then
agency_listbox_2.AddItem agency_listbox_1.SelectedItems(i)
End If
Next i
End Sub
Meine Listbox aus der ich die Daten hole wurde so aufgebaut, das funktioniert auch wunderbar:
With agency_listbox_1
Private Sub UserForm_Initialize()
For i = 1 To 10
.AddItem Sheets("summary").Cells(i + 1, "E").Text
Next i
End With
End Sub
Vielleicht kann mir jemand helfen. Ich zerbrech mir da jetzt schon seit drei Stunden den Kopf.