Excel und VBA: Formeln, Programmierung, Lösungen

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