Von Listbox durch Doppelklick in andere Listbox?
Wie funktioniert das ???
2 Antworten
Möchtest du einfach ein Item in der ersten Listbox doppelklicken können, damit es dann in der zweiten Listbox erscheint? Dann geht das so (vba):
Private Sub LB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
LB2.AddItem LB1.List(LB1.ListIndex)
End Sub
Lade das Bild hier hoch und sende mir den Link:
Kann mir dein Problem gerade nicht vorstellen :)
Dann versuche es so:
With Me.LB2
.ColumnCount = 2
.ColumnWidths = "60"
.AddItem
.List(i, 0) = LB1.List(LB1.ListIndex, 0)
.List(i, 1) = LB1.List(LB1.ListIndex, 1)
i = i + 1
End With
es funktioniert, jedoch bildet sich keine Liste, bei je dem klicken auf den > Button löscht sich das vorherige
Mein Fehler. Versuche es so:
o = LB2.ListCount
With Me.LB2
.ColumnCount = 2
.ColumnWidths = "60"
.AddItem
.List(o, 0) = LB1.List(LB1.ListIndex, 0)
.List(o, 1) = LB1.List(LB1.ListIndex, 1)
End With
ich will, dass der Vorname und Nachname nebeneinander stehen, wenn ich auf das button > klicke wird es in die 2. Listbox übernommen, jedoch nicht so wie ich es gerne hätte.
im Doppelklick Event vom ersten Listbox definiert man, was mit dem 2. Passieren soll...
Das ist doch kein Problem...
bei mehrere Spalten nutzt man eigentlich ListView, statt Listbox...
Mit Listview kannst du dann einen neuen ListView Element erstellen und als Element hinzufügen...
ich habe in Screen reingemacht aber ich glaube, das sieht man nicht