Wie kann man eine Spalte oder ihren Spaltenkopf in Excel hervorheben, sobald sie gefiltert ist?
Bei einer Tabelle mit mehreren Spalten ist auf den ersten Blick nicht leicht zu erkennen, welche Spalte gefiltert ist – denn außer einem 
-Symbol gibt es kein offensichtliches Kennzeichen für die gefilterte Spalte. Wenn Sie die gefilterte Spalte in einer Tabelle hervorheben möchten, hilft Ihnen eine Methode aus diesem Artikel weiter.
Spaltenkopf oder Ganze Spalte hervorheben, wenn diese mit VBA-Code gefiltert ist
Spaltenkopf oder Ganze Spalte hervorheben, wenn diese mit VBA-Code gefiltert ist
Wie im folgenden Screenshot gezeigt, müssen Sie entweder die gesamte Spalte oder lediglich den Spaltenkopf hervorheben, wenn diese Spalte in einem Tabellenbereich gefiltert ist. Verwenden Sie dazu bitte die folgenden VBA-Codes.
1. Drücken Sie die Alt+F11-Tasten, 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 anschließend den folgenden VBA-Code in das Modulfenster.
VBA-Code: Spaltenkopf 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, sobald sie in einer Tabelle gefiltert ist, kopieren Sie bitte den folgenden VBA-Code und fügen ihn in das Modulfenster ein.
VBA-Code: Ganze Spalte hervorheben, wenn diese 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 F5-Taste, um den Code auszuführen. Geben Sie im erscheinenden Kutools für Excel-Dialogfeld die erste Zelle der Tabelle ein, deren gefilterten Spaltenkopf oder gesamte gefilterte Spalte Sie hervorheben möchten, und klicken Sie dann auf die Schaltfläche OK.
Anschließend wird der Spaltenkopf oder die gesamte Spalte sofort hervorgehoben, sobald die Spalte in einer bestimmten Tabelle gefiltert ist. Siehe Screenshots:
Spaltenkopf hervorheben, wenn die Spalte in der Tabelle gefiltert ist:
Ganze Spalte hervorheben, wenn diese in der Tabelle gefiltert ist:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins