Gruppe
Allgemein
Problem
Die Daten in Spalte A sollen nach den in den Zellen D1 und F1 über ListBoxes auszuwählende Kriterien gefiltert werden.
StandardModule: Modul1
Sub Filtern()
Range("A1").CurrentRegion.AutoFilter _
Field:=1, _
Criteria1:="*" & Range("D1").Value & "*", _
Operator:=xlOr, _
Criteria2:="*" & Range("F1").Value & "*"
End Sub