Anzeige
Archiv - Navigation
1420to1424
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

VBA Listbox kopieren und löschen ( Multiselect)

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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
VBA Listbox kopieren und löschen ( Multiselect)
17.04.2015 14:59:00
Nepumuk
Hallo,
ein Beispiel:
Private Sub CommandButton1_Click()
    Dim lngIndex As Long
    With ListBox1
        Do While lngIndex < .ListCount
            If .Selected(lngIndex) Then
                ListBox2.AddItem .List(lngIndex)
                .RemoveItem lngIndex
            Else
                lngIndex = lngIndex + 1
            End If
        Loop
    End With
End Sub

Private Sub UserForm_Initialize()
    ListBox1.List = Worksheets("Tabelle1").Range("E1:E10").Value
End Sub
,
Gruß
Nepumuk

Anzeige
VBA Listbox kopieren und löschen ( Multiselect)
17.04.2015 15:00:03
Rudi Maintaire
Hallo,
Schema:
Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then ListBox2.AddItem .List(i)
Next
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then .RemoveItem (i)
Next
End With
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
ListBox1.AddItem Sheets(1).Cells(i, 1)
Next
End Sub
Gruß
Rudi

AW: VBA Listbox kopieren und löschen ( Multiselect)
17.04.2015 15:25:18
Tobias
Unglaublich es hat funktioniert!!!!
VIELEN VIELEN DANK!!!!!

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige