Filter Kriterien über Comboboxen festlegen
Josef
Ich möchte in einer Userform über ComboBoxen die Filter Kriterien festlegen. Wäre dies mittels VBA Code möglich? Leider funktioniert es in dem unten stehenden Code nicht.
Sub Filter_FG_BLD_VT_OF_APO_01()
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=ComboBox1.Text ' "01"
Selection.AutoFilter Field:=7, Criteria1:=ComboBox3.Text ' "1"
Selection.AutoFilter Field:=22, Criteria1:=ComboBox2.Text ' "Hausapotheken und öffentl. _
Apotheken"
Selection.AutoFilter Field:=24, Criteria1:="="
End Sub
für eine Hilfestellung wäre ich dankbar.
Josef
Anzeige