Hej
Har ett blad med Autofilter aktivt. Om någon kolumn är filtrerad kan man inte göra infoga rad, vilket jag vill göra med VBA. För att det skall fungera måste jag ta bort villkoren för varje kolumnfilter, men jag vill inte avaktivara Autofilter. Med andra ord, alla filterknappar skall vara kvar och vara svarta (svart= inget filter, blå= filter aktivt) efter att jag kört den kod som behövs.
Använder Excel 2003.

Hittade lösningen själv.

Sub stäng_av()
Dim w As Worksheet
Dim f As Integer

Set w = Worksheets("Sheet1")
For f = 1 To w.AutoFilter.Filters.Count
If w.AutoFilter.Filters.Item(f).On Then
w.Cells.AutoFilter field:=f
End If
Next

End Sub