ohne Deine Datei angeschaut zu haben ein Hinweis: Leere die Listbox und fülle sie entsprechend der Filterauswahl. Du musst dazu die Listbox per Code füllen. Falls Du sie mit Rowsource füllst, das geht nicht.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28 • Egon12
so wie du das möchtest funktioniert das nicht. Aber einen kleinen Hoffnungsschimmer, wenigstens eine einfache Suchmöglichkeit zu haben schon - über den Inhalt der Listbox mit 'nem Like Operator.
Nimm statt einer Combobox eine Textbox und dann gibst du den Suchbegriff ein, welcher in den von dir genannten Spalten sucht.
Code:
Private Sub Txt_Search1_Change() Dim zeile As Long, i As Integer, z As Integer, arrdata as Variant LISTE_LADEN_UND_INITIALISIEREN
ReDim arrdata(1 To ListBox1.ListCount, 1 To ListBox1.ColumnCount - 1) For i = 1 To ListBox1.ListCount For z = 1 To 10 arrdata(i, z) = ListBox1.List(i - 1, z - 1) Next z Next i
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, 5) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 6) Like "*" & Me.Txt_Search1 & "*" _ Or .List(zeile, 9) Like "*" & Me.Txt_Search1 & "*" Then Else ListBox1.RemoveItem (zeile) End If End With Next