Gruppe
Allgemein
Bereich
Filtern
Thema
Autofilterkriterium abfragen und filtern
Problem
Der Autofilter soll mit einem über InputBox abzufragenden Kriterium aufgerufen werden. Vorschlagswert in der InputBox soll der Wert in Zelle D1 sein.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub SetFilter()
Dim sFilter As String
sFilter = InputBox("Filter:", , Range("D1").Value)
If sFilter = "" Then Exit Sub
Range("A1").CurrentRegion.AutoFilter _
Field:=1, Criteria1:=sFilter, Operator:=xlAnd
End Sub