Office: Laufzeitfehler 1004 bei Ausführen von Autofilter über Makro

Hallo, ich bin neu hier und brauche mal Unterstützung zum folgenden Makro:
Leider bin ich nicht so firm darin und habe mir das Makro sozusagen "zusammen gestoppelt".

Folgende Ausgangssituation:
Ich habe eine Liste mit 29 Arbeitsblättern, die alle gleich aufgebaut sind.
Da ich faul bin und Excel es leider nicht zulässt, dass man den Autofilter für alle Arbeitsblätter gleichzeitig setzt, bin ich auf die Idee gekommen, dies über ein Makro zumachen.
Die Tabellen in allen Arbeitsblättern sind alle gleich, bis auf eine.
Ich möchte erreichen, dass ich auf allen Blättern den Autofilter setze und dann folgende Criterien:
Field 3 (Spalte 3), Berufsschlüssel, muss zwischen 80000 und 89999 liegen
Field 6 (Spalte6), Gültig bis, muss entweder leer sein oder die Daten 31.12.2014, 31.12.2017 oder 31.10.2017 enthalten.
Ziel ist es, anhand dieser Liste eine Übersicht über die entsprechende Tabelle pro Datenbank zu bekommen und somit die Tabelle in der Datenbank schneller bearbeiten zu können.
Auf Grund bestimmter Regelungen dürfen wir nicht mehr die entsprechenden Befehle per SQL absetzen, ohne einen 2. darüber schauen zu lassen und das ist mir bei 30 Datenbanken auch etwas zu anstrengend, dann bin ich schneller manuell durch.
Aber eine generelle Filterung in der Exceltabelle über VBA, das wäre schon eine Arbeitserleichterung, damit man das schneller sieht.

Hier ist jetzt der Code:
/' Hier soll auf jedes Arbeitsblatt der Autofilter gesetzt werden

Sub Filter_alle_Arbeitsblaetter()

Dim wks As Worksheet
Dim varItem As Variant
Dim i As Byte

For i = 1 To Worksheets.Count
Sheets(i).Select
Selection.Autofilter

Next i

/' Hier soll geprüft werden, ob es ein Arbeitsblatt Berufe_gesamt gibt, wenn ja,
dann soll dieses auf alle Daten anzeigen gesetzt werden, bei allen anderen Arbeitsblättern sollen die Filter mit den folgenden Kriterien gesetzt werden
Die anderen Arbeitsmappen beginnnen immer mit "Mand" oder "mand" oder "MAND"

For Each wks In Worksheets
If wks.Name = "Berufe_gesamt" Then
If wks.AutoFilterMode Then
If wks.FilterMode Then wks.ShowAllData
Else
wks.UsedRange.Autofilter
End If
wks.UsedRange.Autofilter Field:=3, Criteria1:=">=80000" _
, Operator:=xlAnd, Criteria2:="

:)

 

noch ein Hinweis: ich arbeite mit Office 2013

 

Hallo Andrea,

Dein Code arbeitet NUR im Blatt "Berufe_gesamt" - alle anderen werden hier übersprungen:
Code:

In diesem Blatt gibt es aber keine Filterspalte 6 - der Autofilter geht nur über 5 Spalten, es gibt dort also kein Field 6:
Code:

Du musst also im ElseIF-Zweig pprüfen, ob der Blattname mit "mand*" beginnt.

Grüße
EarlFred