Try this:

(...)
Selection.AutoFilter Field:=kol, Criteria1:="=" & filtervarde, VisibleDropdown:=False
(...)



~~~~> Criteria1:="=" & YourVariable

Hope it works