Excel - filters aangeven met kleuren

[cjvisser91]

Hi,

Ik wil graag een duidelijk overzicht hebben op welke kolommen een filter staat.
Is het mogelijk om kolommen een kleur te geven waar een filter op staat?
Stel dat er een filter op kolom C, J en AA een filter staat, kan deze dan automatisch blauw gemarkeerd worden?

 

[Cobbe]

Is rood ook goed?

Sub cobbe()
 For Each filt In ActiveSheet.AutoFilter.Filters
   x = x + 1
    Cells(1, x).Interior.Color = IIf(filt.On, vbRed, xlNone)
 Next filt
End Sub

 

[HSV]

Haha die Cobbe,

Vbblue misschien?

Als er iets te calculeren valt gaat het automatisch.
Zet in een cel op het werkblad de functieformule = subtotaal(3, je filterbereik)

In onderstaande code maakt het niet uit waar de filters of het bereik staat.

Private Sub Worksheet_Calculate()
Dim ft As Filter, j As Long
 For Each ft In AutoFilter.Filters
  AutoFilter.Range.Cells(1).Offset(, j).Interior.Color = IIf(ft.On, vbBlue, xlNone)
  j = j + 1
 Next ft
End Sub

 

[cjvisser91]

Het antwoord van Cobbe komt heel erg in de buurt.
Ik wil alleen nog dat de kleur automatisch weergegeven wordt, zodra er één of meerdere filters toegepast worden.
Kan dit ook?

 

[Cobbe]

Neem het antwoord in post #3 eens door.