Thema: Autofilterkriterium abfragen und filtern

Home

Gruppe

Allgemein

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Filtern

Listbox filtern	Datensätze durch Bedingung filtern
Per Matrix Formel filtern	Suche in Autofiltern in verschiedenen Spalten
Diagramme nach mehreren Balken filtern	Liste mit mehreren Einträgen ausfiltern
Filtern oder Summewenn !?	Daten Filtern
Daten umstrukturieren / Filtern	MSGBox Zeitraum filtern
ausfiltern liste	Duplikate aus einer Tabelle filtern
Monat Filtern	Mit Change() o. Calculate() Filtern und Drucken
Filtern - Google Docs / Excell übertragen	Unterschiedliche Einträge herausfiltern+auflisten
Filtern per Makro	Excel "stolpert" beim wiederholten Filtern
Zahl aus Text filtern	Allgemeine Frage zur Fehlerbehandlung
Zeitraum filtern und getrennt speichern	allgemeine Fragen zu einer Datenbank
Filtern und sodann selektieren...	Listen-Aufstellung filtern und summieren
Daten automatisch filtern + auflisten	Daten aus Zeilen filtern und in Spalten kopieren?
ComboBoxDaten in Abhängigkeit filtern o. Userform	Postleitzahlen herausfiltern
Daten filtern	nur Zahlen aus beliebiger Zeichenkette filtern
Daten filtern	Text filtern
Blatt Filtern B Spalte und Zeileninhalt zusammenfü	Formel zum Filtern gesucht
allgemein	Filtern, aber wie?
Daten filtern	Nach Zeitraum filtern
Filtern,kopieren:beim Einfügen Formeln oder Werte	Bestimmte Einträge filtern
Filtern mit mind. 3 Bedingungen mit Und	gefilterte Liste erneut Filtern
Tabelle durchsuchen - Zeilen filtern	Zeilen aus Tabelle filtern & anzeigen
Filtern über ComboBoxen	Zeilen filtern
Filtern von Datum	Mittelwerte aus Tabelle herausfiltern
Doppelte ausfiltern	Doppelte Werte aus einer Zeile filtern