Zeilen basierend auf Zellenwert ausblenden/einblenden

Zeilen basierend auf Zellenwert ausblenden/einblenden

Basierend auf einem Zellenwert = true oder false habe ich Zeilen bedingt so formatiert, dass sie schwarz werden. Das bedeutet, dass ich nach unten scrollen muss, um die Zeilen zu finden, die nicht schwarz geworden sind. Ich hätte es vorgezogen, dass alle meine Zeilen mit Daten nicht erweitert und ausgeblendet bleiben und nur erweitert werden, wenn der Zellenwert = true ist. Gibt es eine Möglichkeit, die wenigen ausgewählten Zeilen anzuzeigen, wenn der Zellenwert = true ist, und sie zu komprimieren/auszublenden, wenn der Zellenwert = false ist – ohne Makros zu verwenden; oder einen beliebigen Makrocode-Vorschlag, falls einer benötigt wird. Dadurch wird das Scrollen überflüssig.

Antwort1

Makros wären erforderlich. Der Code wäre nicht schwer zu schreiben.

Bearbeitung #1:

Hier ist ein kleines Beispielmakro. Es geht davon aus, dass die SpalteAausA1durchA100enthält entweder True oder False. Wenn der Wert False ist, wird die Zeile ausgeblendet, andernfalls wird sie sichtbar gemacht:

Sub HideOrShowRows()
    Dim A As Range
    Set A = Range("A1:A100")
    A.EntireRow.Hidden = False
    For i = 1 To 100
        If Cells(i, 1).Value <> "" And Cells(i, 1).Value = False Then
            Cells(i, 1).EntireRow.Hidden = True
        End If
    Next i
End Sub

verwandte Informationen