Wie kann man eine Spalte oder Spaltenüberschrift in Excel hervorheben, wenn sie gefiltert ist?

Bei einer Tabelle mit mehreren Spalten ist es nicht einfach, auf einen Blick zu erkennen, welche Spalte gefiltert ist, da es kein offensichtliches Symbol für die gefilterte Spalte gibt, außer einem Markierung. Wenn Sie möchten, dass die gefilterte Spalte in einer Tabelle hervorsticht, kann Ihnen eine Methode in diesem Artikel helfen.

Spaltenüberschrift oder gesamte Spalte hervorheben, wenn sie mit VBA-Code gefiltert ist

Spaltenüberschrift oder gesamte Spalte hervorheben, wenn sie mit VBA-Code gefiltert ist

Wie im folgenden Screenshot gezeigt, müssen Sie die gesamte Spalte oder nur die Spaltenüberschrift hervorheben, wenn diese Spalte in einem Tabellenbereich gefiltert ist. Bitte wenden Sie die folgenden VBA-Codes an.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code: Spaltenüberschrift hervorheben, wenn die Spalte gefiltert ist

Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim I As Integer
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg.Offset(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                If .On Then
                    xRg.Offset(, I - xRgCol).Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

Um die gesamte Spalte hervorzuheben, wenn sie in einer Tabelle gefiltert ist, kopieren und fügen Sie bitte den folgenden VBA-Code in das Modulfenster ein.

VBA-Code: Gesamte Spalte hervorheben, wenn sie gefiltert ist

Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xRgFilter As Range
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
                If .On Then
                    xRgFilter.Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Im erscheinenden Dialogfeld von Kutools for Excel wählen Sie bitte die erste Zelle der Tabelle aus, in der Sie die gefilterte Spaltenüberschrift oder die gesamte gefilterte Spalte hervorheben möchten, und klicken Sie dann auf die Schaltfläche OK.

Dann wird die Spaltenüberschrift oder die gesamte Spalte sofort hervorgehoben, wenn die Spalte in einer bestimmten Tabelle gefiltert ist. Siehe Screenshots:

Spaltenüberschrift hervorheben, wenn die Spalte in der Tabelle gefiltert ist:

Gesamte Spalte hervorheben, wenn sie in der Tabelle gefiltert ist:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!