Listbox werte übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Naja, eigentlich sollte es einen Wert von Listbox1 in Listbox2 schreiben, falls dieser nicht schon in der Liste vorhanden ist. Ich weiß aber mittlerweile auch selbst, dass mit dem code so einiges (!!!) im Argen war. Ich hab ihn deshalb ein bisschen umgeschrieben:
For t = 0 To ListBox1.ListCount 'suche in der ganzen listbox1
If ListBox1.Selected(t) = True Then 'wenn der wert an der stelle markiert ist, dann
For z = 0 To ListBox1.ListCount '
If ListBox2.List(z) "" Then 'wenn in listbox2 an dieser Stelle nicht leer ist
If ListBox2.List(z) = ListBox1.List(t) Then 'wenn Werte gleich dann
GoTo Next nächster listbox1 eintrag
End If
Else
ListBox2.AddItem (ListBox1.List(t)) 'Füge den Wert aus lbox1 zu lbox2 hinzu
GoTo Next 'nächster lbox1 wert
End If
Next z
End If
Next:
Next t
Funktioniert aber nicht. Danke an Ramses und K.Rola (die wirklich beide spitzenleute sind). @Ramses: Ich werde das mit den Zeilenangaben noch ändern. Das war die Holzhackermethode von mir. Sorry. Das r hab ich eingebaut, damit der Wert bei Listbox2 fortlaufend eingefügt wird und nicht immer wieder derselbe Wert überschrieben wird.
@Nepumuk: Thx
Wenn ich das ganze ding dann ausführe bringt er mir:
EIGENSCHAFT LIST KONNTE NICHT ABGERUFEN WERDEN. INDEX DES EIGENSCHAFTENFELDES UNGÜLTIG.
Wenn jemand einen guten code vorschlag hat, immer her damit!

Hallo Jürgen,
so geht's:

Private Sub ListBox1_Click()
    Dim lngListcount1 As Long, lngListcount2 As Long, bolgefunden As Boolean
    For lngListcount1 = 0 To ListBox1.ListCount - 1 'suche in der ganzen listbox1
        If ListBox1.Selected(lngListcount1) = True Then 'wenn der wert an der stelle markiert ist, dann
            bolgefunden = False
            For lngListcount2 = 0 To ListBox2.ListCount - 1
                If ListBox2.List(lngListcount2) = ListBox1.List(lngListcount1) Then bolgefunden = True: Exit For 'wenn Werte gleich dann
            Next
            If Not bolgefunden Then ListBox2.AddItem ListBox1.List(lngListcount1) 'Füge den Wert aus lbox1 zu lbox2 hinzu
        End If
    Next
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox werte übertragen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread