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 SubUm 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 Sub3. 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.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins