Sub AnzeigeAutofilterAusschalten()
Dim lngSpalte As Long
For lngSpalte = 2 To 20
Range("B7:T7").AutoFilter Field:=lngSpalte, VisibleDropDown:=lngSpalte = 1
Next
End Sub
Aber wie mache ich das für die ersten 5 Spalten?LG Snewi
Sub AnzeigeAutofilterAusschalten()
Dim lngSpalte As Long
For lngSpalte = 2 To 20
Range("B7:T7").AutoFilter Field:=lngSpalte, VisibleDropDown:=lngSpalte = 1
Next
End Sub
Aber wie mache ich das für die ersten 5 Spalten?
Range("B7:T7").AutoFilter Field:=Array(6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19), VisibleDropDown:=False
cu