Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Filter Kriterien über Comboboxen festlegen | Herbers Excel-Forum


Betrifft: Filter Kriterien über Comboboxen festlegen von: Josef
Geschrieben am: 21.01.2010 08:23:07

Hallo!

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

  

Betrifft: nach was soll gefiltert werden? von: Tino
Geschrieben am: 21.01.2010 08:35:54

Hallo,
kommt darauf an nach was gefiltert werden soll, nach Datum, Zahlen oder Text.
Ein Beispiel wäre gut damit man dies nicht nachbauen muss.

Gruß Tino


  

Betrifft: AW: nach was soll gefiltert werden? von: Josef
Geschrieben am: 21.01.2010 08:51:17

Hallo Tino!

Danke für Deine Antwort.

Also im Tabellenblatt sind die Spalte 4, 7 und 22 textformatiert, obwohl in den Spalten 4 und 7 Zahlen stehen.


https://www.herber.de/bbs/user/67372.xls

Josef




  

Betrifft: Fehler gefunden von: Josef
Geschrieben am: 21.01.2010 09:10:46

Hallo!


Richtig:

Sub Filter_FG_BLD_VT_OF_APO_01()

Rows("1:1").Select
'Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=UserForm1.ComboBox1.Value  '"01"
Selection.AutoFilter Field:=7, Criteria1:=UserForm1.ComboBox3.Value '"1"
Selection.AutoFilter Field:=22, Criteria1:=UserForm1.ComboBox2.Value '"Hausapotheken und ö _
ffentl. Apotheken"
Selection.AutoFilter Field:=24, Criteria1:="="

End Sub


Danke nochmals

Josef


  

Betrifft: AW: Fehler gefunden von: Tino
Geschrieben am: 21.01.2010 09:11:41

Hallo,
bei mir geht es so.

https://www.herber.de/bbs/user/67373.xls

Gruß Tino


Beiträge aus den Excel-Beispielen zum Thema "Filter Kriterien über Comboboxen festlegen"