Gruppe
Allgemein
Bereich
Autofilter
Thema
AutoFilter über mehrere Arbeitsblätter setzen
Problem
Wie kann ich den AutoFilter in einem Zug über mehrere Arbeitsblätter setzen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub AlleFiltern()
Dim iWks As Integer
For iWks = 2 To Worksheets.Count
Worksheets(iWks).Range("A1").AutoFilter _
Field:=1, _
Criteria1:="=Zeile1*", _
Operator:=xlAnd
Next iWks
End Sub