Thema: Zeilenweise filtern

StandardModule: basMain

Sub RowFilter()
   Dim rng As Range
   Worksheets("ColumnFilter").Cells.Clear
   Columns.Hidden = False
   Range("A1").CurrentRegion.Copy
   Worksheets("ColumnFilter").Select
   Range("A1").PasteSpecial _
      Paste:=xlAll, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=True
   Range("A1").Select
   Cells(1, Worksheets("Data").Range("A1").CurrentRegion.Rows.Count + 2).Formula = _
      "=COUNTA(A:A)"
   Worksheets("ColumnFilter").Range("A1").AutoFilter
End Sub

Sub ShowColumns()
   Columns.Hidden = False
End Sub
ClassModule: Tabelle2

Private Sub Worksheet_Calculate()
   Dim iCol As Integer, iColL As Integer
   iColL = Range("A1").CurrentRegion.Columns.Count
   For iCol = 1 To iColL
      Worksheets("Data").Columns(iCol).Hidden = Rows(iCol).Hidden
   Next iCol
   Worksheets("Data").Select
End Sub

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