Gruppe
Allgemein
Bereich
Filtern
Thema
Zeilenweise filtern
Problem
Eine Tabelle soll zeilenweise gefiltert werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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