ich möchte mit dem Autofilter und einer ComboBox via VBA arbeiten, da mir das Dropdown-Menü des Autofilters zu viele Kriterien aufweist und man diese ja leider nicht bearbeiten kann, richtig?
-------------------------
Sub Filtern()
Application.ScreenUpdating = False
Selection.AutoFilter field:=5, Criteria1:=ComboBox.Value, _
VisibleDropDown:=False
Selection.AutoFilter field:=1, VisibleDropDown:=False
Selection.AutoFilter field:=2, VisibleDropDown:=False
Selection.AutoFilter field:=3, VisibleDropDown:=False
Selection.AutoFilter field:=4, VisibleDropDown:=False
Selection.AutoFilter field:=6, VisibleDropDown:=False
Selection.AutoFilter field:=7, VisibleDropDown:=False
Selection.AutoFilter field:=8, VisibleDropDown:=False
Selection.AutoFilter field:=9, VisibleDropDown:=False
Selection.AutoFilter field:=10, VisibleDropDown:=False
Selection.AutoFilter field:=11, VisibleDropDown:=False
Selection.AutoFilter field:=12, VisibleDropDown:=False
Selection.AutoFilter field:=13, VisibleDropDown:=False
Selection.AutoFilter field:=14, VisibleDropDown:=False
Application.ScreenUpdating = True
End Sub
----------------
Ich habe 14 Spalten, in welchen ich den Autofilter-Pfeil jeweils ausblende. Wenn ich nun dieses Makro über "Extras --> Makro --> Makros ..." ausführe, klappt alles genau so wie ich mir das vorstelle, auch das Filterkriterium aus der ComboBox wird korrekt ausgelesen und die Tabelle wird korrekt gefiltert.
Wenn ich jedoch mit der ComboBox selbst arbeite, also mit ComboBox_Change(), und ein Kriterium darüber auswählen möchte, filtert Excel zunächst alle Werte korrekt bevor ich dann wieder im VBA-Editor lande, in welchem die Zeile "Selection.AutoFilter field:=5, Criteria1:=Filter.Value, VisibleDropDown:=False" gelb hinterlegt ist.
Ich bin fast am verzweifeln ... kann mir jemand sagen, wo der Fehler versteckt ist?
Gruß, Thomas.