Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilenweise filtern

Gruppe

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