Oei, bij mij nochtans niet...
Zet anders even zelf de volledige code in je werkend bestand:
Function FilterCrit() As String
Dim tabel As ListObject
Set tabel = ThisWorkbook.Worksheets(1).ListObjects("Tabel1")
Application.Volatile
Range("A3:AR3").Font.Color = RGB(0, 0, 0)
For i = 1 To tabel.AutoFilter.Filters.Count
If tabel.AutoFilter.Filters(i).On Then
FilterCrit = FilterCrit & i & ", "
Cells(3, i).Font.Color = RGB(255, 0, 0)
End If
Next i
If FilterCrit = "" Then
FilterCrit = "Geen actieve filters"
Else
FilterCrit = "Actieve filter(s) op kolom(men) " & FilterCrit
FilterCrit = Left(FilterCrit, Len(FilterCrit) - 2)
End If
End Function