Auto filter

mutta voihan suodatettavan kentän otsikkorivin vaihtaa helposti...
alla oleva koodi vaatii jonkun excelin VOLATILE funktion käyttämistä ko taulukossa
jaa, että mitä ne VOLATILE funktiot on? Jääköön se lukijan selvitettäväksi, mutta lisää taulukkoosi johonkin soluun kaavaksi esim lontoonkielellä =TODAY tai suomiversiossa =TÄMÄ.PÄIVÄ() niin allaoleva koodi toimii...
eli koodi muuttaa suodatetun kentän taustavärin nyt keltaiseksi, joten sen ainakin huomaa

taulukon moduuliin...

Private Sub Worksheet_Calculate()
Dim SuodatusRivi As Integer
Dim laskuri As Integer
Dim Kentat As Integer
On Error Resume Next
Application.EnableEvents = False
SuodatusRivi = Me.AutoFilter.Range.Row
Kentat = Me.AutoFilter.Filters.Count
Range(Cells(SuodatusRivi, 1), Cells(SuodatusRivi, Kentat)).Interior.ColorIndex = xlNone
If ActiveSheet.FilterMode = True Then
For laskuri = 1 To Kentat
If ActiveSheet.AutoFilter.Filters.Item(laskuri).On Then
'nyt keltainen muuta allaolevaa numeroa
Cells(SuodatusRivi, laskuri).Interior.ColorIndex = 6
End If
Next laskuri
End If
Application.EnableEvents = True
On Error GoTo 0
End Sub