Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Filtern über VBA nach mehreren Kriterien

Gruppe

Filtern

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