Filter entfernen
24.11.2022 20:25:57
Christian
bitte helft mir,
ich suche eine Möglichkeit, in der kompletten Mappe mit einem Schlag also am Liebsten mit VBA sowohl alle gesetzten Filter, sowie alle kleine Haken neben den Spaltenüberschriften, die kommen, wenn ich im Excel Menü auf Filter klicke zu entfernen. Auch deshalb mit VBA, weil ich es dann in ein bestehendes Makro einbauen kann, sodass das Makro alles in einem Wisch erledigt.
In der Mappe kommt sehr vieles vor angefangen von PQ Abfragen, intelligenten Tabellen, Blättern die ausschließlich durch Makros erstellt wurden, Blätter die ausschließlich ich von Hand gefüllt habe, überall können Filter sein, müssen aber nicht, kann auch sein dass beim Starten des Makros gar kein Filter da ist.
Naja habs mit aufzeichnen versucht, durch googlen versucht und bin zumindest soweit:
Private Sub Filter()
Dim shtnam As Worksheet
Dim lstObj As ListObject
For Each shtnam In Worksheets
For Each lstObj In shtnam.ListObjects
lstObj.AutoFilter.ShowAllData
lstObj.ShowAutoFilterDropDown = False
Next
Next
End Sub
Bitte helft mir.
Christian