Zellfarbe verändern, wenn Filter aktiv i
19.04.2021 12:27:09
Manfred
Wie im Betreff geschrieben, möchte ich jene Spalte, die gefiltert wird, anders färbig.
Auf der Suche nach einer Lösung stieß ich auf einen Foreneintrag aus 2007, der zu diesem Thema folgende VBA-Lösung anbot.
Beim Hineinkopieren in meine Exceldatei passiert aber nichts. Wahrscheinlich muss ich Kleinigkeiten im Code anpassen. Ich weiß aber nicht was!
...dann nur mit VBA und mit mindestes einer immer zu berechnenden Formel (z.B. jetzt()) im Worksheet, weil es kein Ereignis "Filter.." gibt. Einfach folgenden Code im entsprechenden Worksheet-Modul eingeben:
Option Explicit
Private Sub Worksheet_Calculate()
Dim f As Filter, i As Long
On Error Resume Next
If AutoFilterMode Then
For i = 1 To AutoFilter.Filters.Count
If AutoFilter.Filters(i).On Then
ActiveCell.CurrentRegion.Cells(1, i).Interior.ColorIndex = 3
Else
ActiveCell.CurrentRegion.Cells(1, i).Interior.ColorIndex = Null
End If
Next
Else
ActiveCell.CurrentRegion.Rows(1).Interior.ColorIndex = Null
End If
End Sub
Es ist prinzipiell egal, wo die zu filternde Liste steht, die gefilterten "Spaltenköpfe" werden rot gemustert.
Gruß Coach