Gruppe
Allgemein
Problem
Eine Tabelle soll zeilenweise gefiltert werden.
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