Autofilter Pfeile ausblenden
02.12.2020 16:52:11
Mastermichi
ich habe einen Autofilter über 400 Spalten gezogen und möchte aber, dass das Filter-Symbol bei den meisten der Spalten ausgeblendet wird.
Ziel ist, dass nur die Spalten 1-10 vom Anwender gefiltert werden (weil auch nur dort die Symbole zu finden sind). Dennoch sollen sich die Filter dann auf den kompletten Bereich (Spalte 1-400) auswirken.
Meine Lösung:
Private Sub Filter()
Dim i As Integer
For i = 11 To 400
Worksheets("Beispiel").Rows(1).AutoFilter Field:=i, VisibleDropDown:=False
Next Spalte
End Sub
Rein von der Sache scheint es zu funktioniert, allerdings rechnet Excel beim Ausführen des Codes eine halbe Stunde. Gibt es eine elegantere Lösung?
Grüße