VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilenweise filtern

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

    


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