HERBERS Excel-Forum - die Beispiele

Thema: Autofilter-Kriterien nach dem Filtern anzeigen

Home

Gruppe

Allgemein

Problem

Nach dem Autofiltern sollen in einer zweiten Tabelle die Überschriften der gefilterten Daten mit den zugehörigen Kriterien angezeigt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub FilterCriteria()
   Dim iRow As Integer, iCol As Integer
   iRow = Range("A1").CurrentRegion.Rows.Count + 2
   iCol = 1
   Do Until IsEmpty(Cells(1, iCol))
      With ActiveSheet.AutoFilter.Filters(iCol)
         If .On Then
            Cells(iRow, iCol).Value = .Criteria1
         End If
      End With
      iCol = iCol + 1
   Loop
   Range("A1").CurrentRegion.SpecialCells _
      (xlCellTypeVisible).Copy Cells(iRow + 1, 1)
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