Gruppe
Allgemein
Bereich
Filtern
Thema
Autofilter-Kriterien nach dem Filtern anzeigen
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