florian86
Goto Top

Excel Autofilter

Hallo,

kann man irgendwie 2 Autofilter in Excel einbauen.

Ich habe mir folgendes kleines Makro erstellt...

Sub Autofilter()
Range("A:A").Autofilter Field:=1, Criteria1:="*a"
End Sub

Dies habe ich mit einem Button verknüpft nun wollte ich ein 2. mit

Sub Autofilter2()
Range("A:A").Autofilter Field:=1, Criteria1:="*b"
End Sub

hinzufügen.

Aber es funktioniert nur das erste bzw. wenn ich den 2. Button anklicke
Filtert er auch nach dem ersten.

Kann man das noch anders als mit Autofilter lösen???

Lg

Florian86

Content-ID: 267166

Url: https://administrator.de/forum/excel-autofilter-267166.html

Ausgedruckt am: 17.04.2025 um 03:04 Uhr

colinardo
colinardo 23.03.2015 aktualisiert um 09:36:41 Uhr
Goto Top
Hallo Florian86,
bei einem AutoFilter kannst du auch zwei Kriterien gleichzeitig angeben und mit einem Operator verknüpfen. In diesem Beispiel wird eine Oder-Verknüpfung verwendet. Willst du die Kriterien mit UND verknüpfen heißt die Konstante für den Operator xlAnd.
Range("A:A").AutoFilter Field:=1, Criteria1:="*a", Criteria2:="*b", Operator:=xlOr  
Grüße Uwe
Florian86
Florian86 23.03.2015 um 11:23:23 Uhr
Goto Top
Das ist richtig ich möchte ja aber auf Button 1 Criteria1:="*a" Filtern und wenn ich auf Button 2 klicke Criteria2:="*b".

MfG

Florian86
colinardo
colinardo 23.03.2015 aktualisiert um 11:27:17 Uhr
Goto Top
Zitat von @Florian86:
Das ist richtig ich möchte ja aber auf Button 1 Criteria1:="*a" Filtern und wenn ich auf Button 2 klicke
Criteria2:="*b".
Das ist für mich nicht eindeutig von dir beschrieben. Willst du entweder oder oder Kumulativ mit den beiden Buttons Filtern ?
Florian86
Florian86 23.03.2015 um 11:33:13 Uhr
Goto Top
Sorry mein Fehler... face-smile

ich habe laufende Nummern

1a
1b
2a
2b
3a
3b

nun möchte ich wenn ich den einen Button drücke alle mit "*a" und bei dem anderen alle mit "*b" gefiltert haben.
Also bei Button A alle mit a filtern und bei Button b alle mit b.

MfG

Florian86
colinardo
Lösung colinardo 23.03.2015 aktualisiert um 11:38:44 Uhr
Goto Top
Also bei Button A alle mit a filtern und bei Button b alle mit b.
Also nicht kumulativ ....

Na dann auf das Event von Button A folgenden Code:
ActiveSheet.AutoFilterMode = False
Range("A:A").AutoFilter Field:=1, Criteria1:="*a"  
und auf den Button B folgenden:
ActiveSheet.AutoFilterMode = False
Range("A:A").AutoFilter Field:=1, Criteria1:="*b"  
Grüße Uwe
Florian86
Florian86 23.03.2015 um 11:38:41 Uhr
Goto Top
Danke