Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

von Listbox zur Listbox mit mehreren Spalten

von Listbox zur Listbox mit mehreren Spalten
10.04.2019 12:22:24
Listbox
Hallo zusammen,
Ich habe zwei Listboxen. Per Doppelklick wird dann ein Eintrag von der einen Listbox in die anderen gegeben:
Private Sub ListBoxR1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBoxR2.AddItem ListBoxR1.Value
End Sub
Das funktioniert auch sehr gut. Nur, eins bekomme ich nicht hin:
In der ListboxR1 gibt es mehrere Spalten. Die sollen auch an die ListboxR2 übergeben werden. Nur habe ich das bisher nicht hinbekommen.
Ich habe beispielsweise das hier ausprobiert, zusätzlich zu dem o. g. Code:
ListBoxR2.List(ListBoxR2.ListCount - 1, 1) = ListBoxR1.List(ListBoxR1.ListCount - 1, 1).Value
Hat jemand für mich einen Tipp?
Schon mal vielen Dank.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: von Listbox zur Listbox mit mehreren Spalten
10.04.2019 12:49:33
Listbox
Hallo Axel,
teste mal:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim lngColumn As Long
    With ListBox2
        .AddItem
        For lngColumn = 0 To .ColumnCount - 1
            .List(ListBox2.ListCount - 1, lngColumn) = _
                ListBox1.List(ListBox1.ListIndex, lngColumn)
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige