Hallo
ich habe eine listbox mit suchfunktion erstellt mit mehreren suchfeldern(textfeld)
wenn ich auf einem suchfeld z.b Mercedes Eintrage dan finde ich auch alle fahrzeuge, aber wenn ich dan zum nechsten suchfeld gehe um dort nach automatik zu suchen
dan verschwinden die fahrzeuge und es erscheinen nur die Automatik Getriebe fahrzeuge
wie schaffe ich es das alle suchfelder aktiv bleiben

Private Sub Getriebe_Change()

Dim Teile As Long

'ListBox Leeren
Me.ListBoxCar.Clear

'Schleife über alle Zeilen der Tabelle
For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row
    
    If InStr(1, LCase(Fahrzeugbestand.Cells(Zeile, 6).Value), LCase(Me.Getriebe.Value)) <> 0 Then
    
    'Listbox befüllen
    Me.ListBoxCar.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    
End If
    
Next Zeile

End Sub

Private Sub Marke_Change()

Dim Teile As Long

'ListBox Leeren
Me.ListBoxCar.Clear

'Schleife über alle Zeilen der Tabelle
For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row
    
    If InStr(1, LCase(Fahrzeugbestand.Cells(Zeile, 2).Value), LCase(Me.Marke.Value)) <> 0 Then

    'Listbox befüllen
    Me.ListBoxCar.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    
End If
    
Next Zeile

End Sub

Private Sub UserForm_Initialize()

Dim Teile As Long

'Schleife über alle Zeilen der Tabelle

For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row

    'Listbox befüllen
    Me.ListBoxCar.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxCar.List(Me.ListBoxCar.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    
Next Zeile

'Erste Element auswählen
Me.ListBoxCar.Selected(0) = True

End Sub