Hej Hittade lösningen själv.Ta bort Filter villkor med VBA i Excel
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.Sv: Ta bort Filter villkor med VBA i Excel
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