Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Autofilter-Kriterien nach dem Filtern anzeigen

Gruppe

Filtern

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