KLEUR filterknop AUTOFILTER wijzigen

[Rudi Rombouts]

Bij het gebruik van AUTOFILTER en filter in een kolom verschijnt er boveraan de kolom een knopje met een BLAUW driehoekje in
(als aanduiding dat ik op deze kolom heb gefilterd)
deze BLAUWE kleur kan ik dat ergens wijzigen ? (kwestie voor iemand die de blauwe kleur bijna niet ziet)
of is er een andere mogelijkheid om aan te duiden op welke kolom mende FILTER GEBRUIKT

reeds bedankt

Rudi

 

[Superzeeuw]

Rudi,

Helaas, dat is niet mogelijk,
maar er is een workaround kijk maar eens Hier

Code die op de site staat:

Triggercode

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    If Sh.AutoFilterMode Then ColorDisplayFilter
End Sub

Proces:

Sub ColorDisplayFilter()
    Dim flt As Filter
    Dim iCol As Integer
    Dim lRow As Long

    iCol = 0
    lRow = ActiveSheet.AutoFilter.Range.Row
    Application.EnableEvents = False
    For Each flt In ActiveSheet.AutoFilter.Filters
        iCol = iCol + 1
        If flt.On Then
            Cells(lRow, iCol).Interior.Color = vbYellow
        Else
            Cells(lRow, iCol).Interior.ColorIndex = xlColorIndexNone
        End If
    Next flt
    Application.EnableEvents = True
End Sub

Je zult de code wel moeten aanpassen aan je eigen wensen

 

[Rudi Rombouts]

Bedankt voor deze
voor ons is het probleem hiermee opgelost


nogmaals bedankt
Rudi