Gruppe
Allgemein
Problem
Das Autoausfüllen von Zellen wird durch leere Zellen unterbrochen. Wie kann ich das ändern?
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