Mehrspaltige Listbox filtern

Hallo zusammen,
ich habe bereits das Forum durchforstet, jedoch scheitere ich an meinem Vorhaben.
Mein Ziel ist es, Listbox-Einträge mittels einer ComboBox zu Filtern.
Heißt, in der ComboBox soll man einen Namen auswählen können, welcher sich in der ersten Spalte der Listbox befindet, anschließend soll man nur noch diese Einträge (alle Spalten) sehen und bearbeiten können.
Leert man anschließend die Combobox, sollen alle Einträge wieder sichtbar sein.
Befüllt wird die Listbox über .AddItem
Alles was ich dazu bisher gefunden habe, funktioniert nur bedingt.
Folgendes ist ein Schnipsel scheint offensichtlich den Namen zu filtern, jedoch fehlen mir anschließend alle weiteren Spalteneinträge, zudem passiert nichts, wenn ich die ComboBox leere.

Wer kann mir dabei helfen?


Private Sub Mitarbeiter_Change()
Dim arr() As Variant
Dim i As Integer
ReDim arr(0 To Übersicht.ListCount - 1)
For i = 0 To Übersicht.ListCount - 1
arr(i) = Übersicht.List(i)
Next i
Übersicht.List = Filter(arr, Mitarbeiter.Value)
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Was davon ist denn die Combobox und was die Listbox. Naja egal. Es gib ja solche Lösungen nicht im Netz. Irgendwer hat wohl neulich einen Löschbutton fürs Internet gedrückt und diese zig Tausenden Lösungen entfernt. Darunter auch ein paar von mir.
Du mußt die Listbox immer neu füllen. Je nach Comboboxwert.
Je nachdem wie du das machst und wie groß die Datenmenge ist, merkst du das kaum beim Ablauf oder halt ein wenig.
Das Listboxfüllen benötigt nur eine Abfrage ob der Wert in Combobox gleich dem Wert der Listboxspalte 1 ist und fertig. Also vor dem Aditem.
Alternativ gehts auch rückwärts. Wenn die Listbox gefüllt ist und beim Change der Combobox, wird jeder Wert der Listboxspalte 1 geprüft und aus Selbiger per Remove entfernt. Diese Schleife muß dann aber von max index zu min index laufen.

Private Sub Textbox1_Change() Dim zeile As Long, i As Integer, z As Integer, arrdata() Call ListboxLaden 'Prozeduraufruf arrdata = ListBox1.List Me.ListBox1.Clear Me.ListBox1.List = arrdata For zeile = Me.ListBox1.ListCount - 1 To 0 Step -1 With ListBox1 If .List(zeile, 1) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 2) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 3) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 4) Like "*" & Me.Txt_Search1 & "*" Then Else ListBox1.RemoveItem (zeile) End If End With Next End Sub

Private Sub Textbox1_Change() Dim zeile As Long, i As Integer, z As Integer, arrdata() Call ListboxLaden 'Prozeduraufruf arrdata = ListBox1.List For zeile = Me.ListBox1.ListCount - 1 To 0 Step -1 With ListBox1 If .List(zeile, 1) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 2) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 3) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 4) Like "*" & Me.Txt_Search1 & "*" Then Else ListBox1.RemoveItem (zeile) End If End With Next End Sub

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)

Mehrspaltige Listbox filtern

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