Das ist die Lösung wenn man den Suchfilter manuell ansteuert.
Ich weiß. Zeichne es Dir mit dem Makrorekorder auf. Somit weißt Du schonmal, wie der Code aussieht.
Anschließend manipulierst Du die entsprechenden Stellen und verkettest Zellwert/Zellwerte mit nem Wildcardzeichen.
Am Beispiel Lieferant:
tb_Datenbank.Range("B12").AutoFilter Field:=6, Criteria1:=tb_Suchformular.Range("H20").Value
Wird beispielsweise zu:
tb_Datenbank.Range("B12").AutoFilter Field:=6, Criteria1:="*" & tb_Suchformular.Range("H20").Value & "*"
By the way:
Die Value-Eigenschaft einer Zelle würde ich nicht mit der Funktion IsEmpty prüfen, sondern mit einer Konstanten vergleichen.
Könnte dann so aussehen:
Select Case True
'
[...]
'Bezeichnung Lieferant
Case tb_Suchformular.Range("H20").Value = vbNullString
tb_Datenbank.Range("B12").AutoFilter Field:=6, Criteria1:="*" & tb_Suchformular.Range("H20").Value & "*"
'Hauptgruppe
Case tb_Suchformular.Range("H22").Value = vbNullString
tb_Datenbank.Range("B12").AutoFilter Field:=7, ...
'usw usf
End Select
|