Gruppe
Allgemein
Problem
Alle Zeilen, deren Wert in Spalte A WAHR ist, sollen ausgeblendet werden. Das Ausblenden soll nicht zeilenweise erfolgen.
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