VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle Zeilen mit dem Wahrheitswert WAHR ausblenden

Gruppe

Allgemein

Bereich

Filtern

Thema

Alle Zeilen mit dem Wahrheitswert WAHR ausblenden

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

    


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