Wie kann eine Spalte oder eine Spaltenüberschrift hervorgehoben werden, wenn sie in Excel gefiltert wird?
Bei einer Tabelle mit mehreren Spalten ist es nicht einfach, auf einen Blick herauszufinden, welche Spalte gefiltert wird, da für die gefilterte Spalte außer a kein offensichtliches Symbol vorhanden ist Kennzeichen. Wenn Sie die gefilterte Spalte in einer Tabelle hervorheben möchten, kann Ihnen eine Methode in diesem Artikel helfen.
Markieren Sie die Spaltenüberschrift oder die gesamte Spalte, wenn sie mit VBA-Code gefiltert wird
Markieren Sie die Spaltenüberschrift oder die gesamte Spalte, wenn sie mit VBA-Code gefiltert wird
Wie im folgenden Screenshot gezeigt, müssen Sie die gesamte Spalte oder nur die Spaltenüberschrift markieren, wenn diese Spalte in einem Tabellenbereich gefiltert wird. Wenden Sie die folgenden VBA-Codes an.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
VBA-Code: Markieren Sie die Spaltenüberschrift, wenn die Spalte gefiltert wird
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 Sie bitte den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Markieren Sie die gesamte Spalte, 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 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld die erste Zelle der Tabelle aus, die Sie zum Hervorheben der gefilterten Spaltenüberschrift oder der gesamten gefilterten Spalte benötigen, und klicken Sie dann auf OK .
Dann wird die Spaltenüberschrift oder die gesamte Spalte sofort hervorgehoben, wenn die Spalte in einer bestimmten Tabelle gefiltert wird. Siehe Screenshots:
Markieren Sie die Spaltenüberschrift, wenn die Spalte in der Tabelle gefiltert ist:
Markieren Sie die gesamte Spalte, wenn sie in der Tabelle gefiltert ist:
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!