Gruppe
Allgemein
Problem
Nach dem Autofiltern sollen in einer zweiten Tabelle die Überschriften der gefilterten Daten mit den zugehörigen Kriterien angezeigt werden.
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