Wie kann man Zeilen basierend auf der Zellenfarbe in Excel ausblenden?

In einem Excel-Arbeitsblatt habe ich eine Liste von Zellen mit vielen verschiedenen Farben. Nun möchte ich, wie im folgenden Screenshot gezeigt, alle Zeilen mit hellblauer Hintergrundfarbe ausblenden. Wie kann ich diese Aufgabe in Excel schnell und einfach erledigen?

Zeilen basierend auf Zellenfarbe mit VBA-Code ausblenden

Zeilen basierend auf Zellenfarbe mit Kutools für Excel ausblenden

Zeilen basierend auf Zellenfarbe mit VBA-Code ausblenden

Um Zeilen basierend auf einer bestimmten Hintergrundfarbe auszublenden, könnte Ihnen der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Zeilen basierend auf Zellenfarbe ausblenden:

Sub Hidebycolor()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To xRg.Count
        If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
            xRg.Range("A" & I).EntireRow.Hidden = True
        End If
    Next 'i
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Es erscheint ein Dialogfeld, das Sie auffordert, die Zellen auszuwählen, die Sie verwenden möchten. Siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK, und alle hellblau gefärbten Zellen werden sofort ausgeblendet. Siehe Screenshot:

Hinweise:

1. In dem obigen Code ist die Zahl 20 innerhalb des Skripts If xRg.Range("A" & I).Interior.ColorIndex = 20 Then die Farbindexnummer. Sie können sie bei Bedarf ändern.

2. Wenn Sie sich nicht sicher sind, welche Farbindexnummer verwendet wird, sollten Sie den folgenden Code anwenden, um den gewünschten Farbindex zu erhalten:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

Geben Sie dann die Formel: =GetColor(A2) ein, um die spezifische Farbindexnummer des Hintergrunds in Zelle A2 zurückzugeben. Ändern Sie A2 bei Bedarf in andere Zellen.

Zeilen basierend auf Zellenfarbe mit Kutools für Excel ausblenden

Wenn Sie Kutools für Excel haben, können Sie mit der Funktion Zellen mit Format auswählen zunächst die spezifisch gefärbten Zellen auswählen und diese dann auf einmal ausblenden.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools > Auswählen > Zellen mit Format auswählen, siehe Screenshot:

2. Führen Sie im Dialogfeld Zellen mit Format auswählen die folgenden Schritte aus:

(1.) Klicken Sie auf die Schaltfläche, um den Datenbereich auszuwählen, den Sie verwenden möchten;

(2.) Klicken Sie dann auf die Schaltfläche Format von Zelle auswählen, um die spezifisch gefärbte Zelle auszuwählen, basierend auf der Sie die Zeilen ausblenden möchten;

(3.) Alle Attribute der spezifischen Zelle wurden in die Listenbox aufgenommen. Aktivieren Sie bitte nur Hintergrundfarbe unter dem Abschnitt Füllung.

3. Klicken Sie dann auf die Schaltfläche OK, um alle Zellen mit der spezifischen Farbe auf einmal auszuwählen. Klicken Sie anschließend auf Start > Format > Ausblenden & Einblenden > Zeilen ausblenden, siehe Screenshot:

4. Die ausgewählten Zellen mit der spezifischen Farbe werden nun ausgeblendet. Siehe Screenshot:

Demo: Zeilen basierend auf Zellenfarbe mit Kutools für Excel ausblenden