VBA listbox in listbox kopieren

Ok, das scheint die Nüsse und ich habe erforscht, es für ein paar Stunden, aber ich kann nichts finden, die funktioniert. Dieser Beitrag wird Recht frei von code, aber ich werde erklären, sehr schnell genau das, was ich versuche zu tun.

Also ich habe ein Listenfeld, das habe ich erfolgreich aufgefüllt, und es funktioniert Prima. Irgendwann nach Anweisung durch den Benutzer, der Benutzer wählt eine Zeile aus der listbox, nennen Sie es, RecordBox, Überprüfen Sie einige Informationen, vielleicht fügen Sie einige, und klicken Sie dann auf "speichern unter" Befehl. Bei Klick auf diesen button speichern möchte ich kopieren Sie die ausgewählte Zeile aus RecordBox zu der zweiten listbox. Rufen Sie DetailsBox nehme ich an.

Entweder ich brauche eine Möglichkeit, Daten in der form angezeigt in form von Beschriftungen, combobox-Einträge und text-box-Einträge, eine Zeile hinzufügen "DetailsBox" und kopieren Sie die Informationen zu bestimmten Spalten einer Zeile, oder muss ich einfach kopieren Sie die ausgewählte Zeile aus RecordBox zu DetailsBox.

Sowieso, wenn einige der code wäre hilfreich, einfach Fragen, aber es ist wirklich nicht gerade alle neben der Schaltfläche click-Ereignis.

Ich hoffe, dass würde sein genug Informationen.

InformationsquelleAutor user2759242 | 2013-09-28

3

Es ist so einfach wie
```
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex)
```
NACHTRAG (Aus den Kommentaren)

Ich denke, ich werde zu senden, die Zeile zu einem Arbeitsblatt, und fügen Sie es auf die andere listbox-von dort aus.

Ich glaube, Sie sind mit einer mehrspaltigen listbox. In diesem Fall wird der obige code fügen Sie nur die erste Spalte zu der 2. listbox. Sie benötigen zum Durchlaufen der rest der Spalten hinzufügen, um die ausgewählte Zeile aus Listbox1.

Sagen wir mal dein userform sieht wie folgt aus. Habe ich ein kleines Beispiel für Sie.

und den Eigenschaften der Listenfelder sind so eingestellt, wie unten

und dies ist, wie Ihr Sheet1 aussieht.

Nun setzen Sie die Nutzung dieser code in die Userform.
```
Private Sub UserForm_Initialize()
    '~~> Adding Sample Data to listbox 1
    ListBox1.List = ThisWorkbook.Sheets(1).Range("A1:E3").Value
End Sub

Private Sub CommandButton1_Click()
    Dim iIndex
    Dim i As Long, j As Long, k As Long

    With ListBox1
        i = .ListIndex

        ListBox2.AddItem .List(i, 0), 0

        j = ListBox2.ListCount - 1

        For k = 1 To .ColumnCount - 1
            ListBox2.List(j, k) = .List(i, k)
        Next k
    End With
End Sub
```
Wenn Sie klicken Sie auf ein Element in der Listbox1 und drücken Sie die Befehl-Taste, werden Sie feststellen, dass die ausgewählte Zeile aus Listbox1 erfolgreich kopiert Listbox2

Nicht ganz, für mich zu arbeiten. Nicht sicher, warum... Das hat schon weniger als kooperatives Projekt. Ich denke, ich werde zu senden, die Zeile zu einem Arbeitsblatt, und fügen Sie es auf die andere listbox-von dort aus.
Was nicht funktioniert? Welche Fehler sind Sie immer? Sind Sie versuchen, kopieren Sie eine mehrspaltige Zeile aus einer listbox in die andere?
Ich habe meinen Beitrag oben aktualisiert. Schau mal nach, ob das ist, was Sie wollen...
Ich glaube, ich sehen, was ich getan haben, falsch vor. Leider bin ich nicht bei der Arbeit im moment, aber wenn ich zurückkehre, werde ich ihm eine Chance geben und lassen Sie wissen, wie es geht. Ich habe überarbeitet, dieses Projekt schon ein bisschen, und es wäre schön, in der Lage sein das zu kümmern, was ich versuche zu tun, in dieser Art und Weise jetzt.
Aber diese Lösung funktioniert nur mit Listboxen, die mit 10 Spalten, oder weniger.

InformationsquelleAutor Siddharth Rout

Für eine sucht zu senden, Elemente aus einem Listenfeld zu einem anderen mit einem loop-und multi wählen. Hier einige code, der helfen könnte. Sie brauchen zum einstellen der beiden Listboxen die Eigenschaften Mulitselect. 1-fmMultiSelectMulti. Dann verwenden Sie die gleichen Einstellungen/setup, so Siddharth Rout oben gepostet.

 Private Sub CommandButton1_Click()
Dim iIndex
Dim i As Long, j As Long, k As Long
ListBox2.Clear
For i = 0 To 2' loop 3 times for each row in listbox1.
   If ListBox1.Selected(i) = True Then 'Get the first selected Row index number.

   ListBox2.AddItem ListBox1.List(i, 0) 'Gets the first item from listbox1 and puts it in listbox2.
        j = ListBox2.ListCount - 1 ' counts all items in listbox2. which is one item.

        For k = 1 To ListBox1.ColumnCount - 1 'Count the columns listbox1.Now that the first item is in listbox2 _
        move over one column & copy the next value to listbox2. loop 4 more times for 4th entry of row one.
            ListBox2.List(j, k) = ListBox1.List(i, k)
         Next k
   End If
 Next i
End Sub

Aber diese Lösung funktioniert nur mit Listboxen, die mit 10 Spalten, oder weniger.

InformationsquelleAutor Blackrock41

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.