Gruppe
Allgemein
Problem
Wie kann ich den AutoFilter in einem Zug über mehrere Arbeitsblätter setzen?
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