Soo jungs ich habe es sogemacht

If InStr(1, LCase(Fahrzeugbestand.Cells(Zeile, 2).Value), LCase(Me.Marke.Value)) And _
       InStr(1, LCase(Fahrzeugbestand.Cells(Zeile, 6).Value), LCase(Me.Getriebe.Value)) <> 0 Then

Anstatt ( or ) Habe ich ( and ) Benutzt doch jetzt habe ich ein anderes Problem und zwar bei der Suche wenn ich 1 Buchstaben eingebe z. B. ( A ) dann erscheint in der Suchbox Automatik und Manuel weil im Manuel auch 1 ( A ) drin ist wie mache ich es das ich wenn ich den Buchstaben ( A ) eingebe, dass ich dann alles, was mit A beginnt, angezeigt bekomme

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)) And _
       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 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)) And _
       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 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