Makro: Autofilter funktioniert nicht

Hallo zusammen,
ich habe ein Problem mit meinem Makro und wie ich im Forum sehen konnte, kennt Ihr euch bestens aus und hoffe daher auf ein wenig Hilfe :)
Habe ein Makro aufgenommen mit Auto-Filterfunktion:
Folgender Befehl wird aber nicht richtig umgesetzt:
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=28, Criteria1:=Array( _
"Header", "? Running", "? Delayed", "="), Operator:=xlFilterValues
Es zeigt leider nur die Leerzeilen und den Header an. Wenn ich die Leerzeilen und den Header rausnehme, zeigt er mir die anderen beiden Punkte aus dem Drop-Down Menü an...
Er überspringt quasi 2v4 Befehlen in geglicher Kombination.
Woran liegt das und wie lautet der richtige Code?
Besten Dank im Voraus.
Grüße,
Ben

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
anbei noch der ganze Code; ggf. hängt das ja zusammen.
Über Hilfe wäre ich sehr dankbar :)

Sub Show_next_30_days_medium()
' Show_next_30_days_medium Makro
'   ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=48
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=47
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=46
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=45
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=44
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=43
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=42
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=41
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=40
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=39
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=38
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=37
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=36
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=35
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=34
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=33
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=32
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=31
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=30
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=29
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=27
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=25
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=24
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=18
ActiveWindow.SmallScroll ToRight:=-4
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=12
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=8
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=6
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=4
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=2, Criteria1:=Array( _
"Advanced", "Header", "Medium"), Operator:=xlFilterValues
ActiveSheet.Range("$B$13:$AY$168").AutoFilter Field:=26, Criteria1:="

Beste Grüße,
Ben

Beliebteste Forumthreads (12 Monate)

Makro: Autofilter funktioniert nicht

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro: Autofilter funktioniert nicht

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread