Gruppe
Allgemein
Bereich
Filtern
Thema
Filtern über VBA nach mehreren Kriterien
Problem
Die Daten in Spalte A sollen nach den in den Zellen D1 und F1 über ListBoxes auszuwählende Kriterien gefiltert werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub Filtern()
Range("A1").CurrentRegion.AutoFilter _
Field:=1, _
Criteria1:="*" & Range("D1").Value & "*", _
Operator:=xlOr, _
Criteria2:="*" & Range("F1").Value & "*"
End Sub