die gelbe Hintergrundfarbe für den Header in einer AutoFilter-Tabelle ein Frage:

Beim Filtern einer Spalte ist die Kopfzeile mit einer gelben Hintergrundfarbe hervorzuheben

Antwort:

Fügen Sie den folgenden Code in die entsprechenden Module ein.

Fügen Sie den folgenden Code in das Standardmodul ein.

Private Sub Worksheet_Calculate()

Dim flt As Filter

Dim intCol As Integer

For Each flt In ActiveSheet.AutoFilter.Filters

intCol = intCol + 1

If flt.On Then

Cells(1, intCol).Interior.ColorIndex = 6

Else

Cells(1, intCol).Interior.ColorIndex = xlColorIndexNone

End If

Next flt

End Sub