To neviem, ale môžeš ju získať, trebárs takto:
Sub test()
Dim c1 As String
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(6) 'číslo stĺpca, na ktorom máš zapnutý filter
If .On Then c1 = .Criteria1 'priradí hodnotu filtra premennej
End With
End If
Debug.Print c1 'zobrazí hodnotu filtra v okne immediate
End With
End Subcitovat
Sub test()
Dim c1 As String
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(6) 'číslo stĺpca, na ktorom máš zapnutý filter
If .On Then c1 = .Criteria1 'priradí hodnotu filtra premennej
End With
End If
Debug.Print c1 'zobrazí hodnotu filtra v okne immediate
End With
End Subcitovat