VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Autofilter-Kriterien nach dem Filtern anzeigen

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

    


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