AutoFilter nur für die ersten 5 Spalten
17.05.2022 10:09:45
Snewi
Sub AnzeigeAutofilterAusschalten()
Dim lngSpalte As Long
For lngSpalte = 2 To 20
Range("B7:T7").AutoFilter Field:=lngSpalte, VisibleDropDown:=lngSpalte = 1
Next
End Sub
LG Snewi