Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Zeilen mit dem Wahrheitswert WAHR ausblenden

Gruppe

Filtern

Problem

Alle Zeilen, deren Wert in Spalte A WAHR ist, sollen ausgeblendet werden. Das Ausblenden soll nicht zeilenweise erfolgen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub HideWahr()
   Dim rng As Range
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Cells(iRow, 1).Value = True Then
         If rng Is Nothing Then
            Set rng = Cells(iRow, 1)
         Else
            Set rng = Application.Union(rng, Cells(iRow, 1))
         End If
      End If
   Next iRow
   rng.EntireRow.Hidden = True
End Sub