Gefilterde kolommen een kleur geven

[rickb1977]

Omdat ik vaak met excelbestanden werk met zeer veel rijen zou ik het handig vinden om kolommen waarbij ik een filter heb toegepast automatisch een kleur te geven. Dat mag de hele kolom zijn of alleen de kolomtitel.

Daardoor kan ik bij het scrollen sneller zien welke kolommen er gefilterd zijn. (ik vind dat 'trechtertje' niet altijd goed zichtbaar bij snel zoeken)

Is dat mogelijk en zo ja, hoe dan?

Alvast bedankt voor jullie reactie!

 

[VenA]

bv

Sub VenA()
  For Each flt In ActiveSheet.AutoFilter.Filters
    j = j + 1
    Cells(1, j).Interior.Color = IIf(flt.On, vbRed, xlNone)
  Next flt
End Sub

 

[roeljongman]

met voorwaardelijke opmaak zou het kunnen

met de formule die totaal aantal cellen telt in een kolom en het aantal zichtbare cellen.

=AANTALARG(C$3:C$10)>SUBTOTAAL(3;C$3:C$10)

Bekijk bijlage filterkolom met gekleurd.xlsx


Ik vertrouw ook niet op de trechtertjes, maar ik heb als extra middeltje op de werkbalk snelle toegang de filter functies ook aangezet zodat ik via de werkbalk snelle toegang ook kan zien dat er ergens een filter op staat.

Slicers zijn een ander hulpmiddel om snel te kunnen filteren én om te zien of filters actief zijn. bij slicers zie je sneller dat er een filter actief is.

gewoon even als extra opties

 

[rickb1977]

Beide bedankt voor het snelle antwoord.

@VenA: als ik een macro maak met deze code werkt het prima. Echter ik moet de macro telkens opnieuw uitvoeren om te zien wat de actuele filters zijn.
Is het mogelijk dit zo te maken dat de kleur al veranderd op het moment dat ik de filter toepas? Dus zonder de macro opnieuw uit te voeren?

@roeljongman: die slicers daar zal ik me in gaan verdiepen, daar heb ik nog niet eerder mee gewerkt.
Die formule voor voorwaardelijke opmaak werkt prima. Hoe kan ik deze op een gemakkelijke manier toepassen in een bestand met meerdere kolommen?
Kan ik daar een macro voor maken of is daar een betere manier voor?

 

[VenA]

Het kan wel, maar geen standaard event wordt er door getriggerd. Volgens mij is het ook niet nodig. Je hebt het alleen nodig als je even het spoor bijster bent en als je de macro koppelt aan een sneltoets dan gaat dat sneller dan vertragende code.

In de module van het betreffende blad.
Als er formules in staan.

Private Sub Worksheet_Calculate()
 If Not ActiveSheet.AutoFilterMode Then Exit Sub
 For Each flt In ActiveSheet.AutoFilter.Filters
    j = j + 1
    Cells(1, j).Interior.Color = IIf(flt.On, vbRed, xlNone)
  Next flt
End Sub

Of bij het selecteren van een willekeurige cel.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not ActiveSheet.AutoFilterMode Then Exit Sub
  For Each flt In ActiveSheet.AutoFilter.Filters
    j = j + 1
    Cells(1, j).Interior.Color = IIf(flt.On, vbRed, xlNone)
  Next flt
End Sub

 

[rickb1977]

Dank je wel hiervoor. Ik kan het met een sneltoets inderdaad ook prima oplossen.
Ik kan weer verder hobbyen met m'n bestanden.