Welke kolom is gefilterd

[bkoppers]

Met onderstaande code kan ik bepalen of er een autofilter op mijn tabel zit, echter ik wil graag zien in welke kolom dat de filter zit. Hopelijk kan iemand mij helpen,

Sub ZoekFilter()

If Sheets("Frezen").FilterMode = True Then
MsgBox "Filter staat aan"
Else
MsgBox "Geen Filter"
End If
End Sub

 

[SjonR]

Zo goed ?:

Sub Zoekfilter()


If ActiveSheet.FilterMode = True Then
For i = 1 To ActiveSheet.AutoFilter.Filters.Count Step 1
       If ActiveSheet.AutoFilter.Filters(i).On Then
       MsgBox "Filter staat aan in kolom " & i
       End If
    Next i
Else
MsgBox "Geen Filter"
End If
    
End Sub

 

[bkoppers]

Dankjewel, dat was precies wat ik zocht

 

[SjonR]

dat is mooi! :thumb: