Danke dir für die schnelle Antwort!

Das ist die Lösung wenn man den Suchfilter manuell ansteuert. Habe wohl vergessen zu sagen, dass ch das ganze in VBA verwirklichen möchte.

Habe über den VBA-Recorder jetzt herausgefunden, dass man wenn man nach ungefähren Werten sucht, den Suchwert in Sternchen Kennzeichnen muss. Jedoch habe ich als Suchwert eine Zelle angegeben und weiß nicht wie ich da die Sterne jetzt einbinden muss bzw. ob das überhaupt geht.

Den ungefähren Textwert habe ich dann bei der zweiten Zeile unter 'Lieferant (Also da wo H12 als Suchparameter angegeben ist.

Ich stelle hier mal meinen Code ein, um das ganze ein wenig zu veranschaulichen.

Sub Suchen_mit_Autofilter()
'Felder abfragen
    If IsEmpty(tb_Suchformular.Range("H12,H14,H16,H18,H20,H22,H24,L12,L14,L16,L18,L20,L22,L24").Value) = True Then
    MsgBox "Bitte Suchparameter eingeben", vbOKOnly, "Fehler!"
    Exit Sub
    End If
'Lieferant
    If IsEmpty(tb_Suchformular.Range("H12").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=2, Criteria1:=tb_Suchformular.Range("H12").Value
    End If
'Projekt Nr.
    If IsEmpty(tb_Suchformular.Range("H14").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=3, Criteria1:=tb_Suchformular.Range("H14").Value
    End If
'Datum
    If IsEmpty(tb_Suchformular.Range("H16").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=4, Criteria1:=tb_Suchformular.Range("H16").Value
    End If
'T-Nr.
    If IsEmpty(tb_Suchformular.Range("H18").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=5, Criteria1:=tb_Suchformular.Range("H18").Value
    End If
'Bezeichnung Lieferant
    If IsEmpty(tb_Suchformular.Range("H20").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=6, Criteria1:=tb_Suchformular.Range("H20").Value
    End If
'Hauptgruppe
    If IsEmpty(tb_Suchformular.Range("H22").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=7, Criteria1:=tb_Suchformular.Range("H22").Value
    End If
'Lagerhaltung
    If IsEmpty(tb_Suchformular.Range("H24").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=8, Criteria1:=tb_Suchformular.Range("H24").Value
    End If
'Schneidstoff
    If IsEmpty(tb_Suchformular.Range("L12").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=9, Criteria1:=tb_Suchformular.Range("L12").Value
    End If
'Abmessungen
    If IsEmpty(tb_Suchformular.Range("L14").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=10, Criteria1:=tb_Suchformular.Range("L14").Value
    End If
'Schaftdurchmesser
    If IsEmpty(tb_Suchformular.Range("L16").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=11, Criteria1:=tb_Suchformular.Range("L16").Value
    End If
'Zähnezahl
    If IsEmpty(tb_Suchformular.Range("L18").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=12, Criteria1:=tb_Suchformular.Range("L18").Value
    End If
'Gesamtlänge
    If IsEmpty(tb_Suchformular.Range("L20").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=13, Criteria1:=tb_Suchformular.Range("L20").Value
    End If
'Anzahl Stufen
    If IsEmpty(tb_Suchformular.Range("L22").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=14, Criteria1:=tb_Suchformular.Range("L22").Value
    End If
'Besonderheiten
    If IsEmpty(tb_Suchformular.Range("L24").Value) = False Then
    tb_Datenbank.Range("B12").AutoFilter Field:=15, Criteria1:=tb_Suchformular.Range("L24").Value
    End If
'Auf die Datenbank navigieren
    tb_Datenbank.Select

End Sub