Kann Autofilter nicht löschen
02.09.2019 16:31:47
Werner
ich verarbeite CSV-Daten meiner Bankingsoftware. Dabei hatte ich noch Probleme mit führenden Nullen bzw. langen Zahlen. Im Forum hat man mir weitergeholfen (Thread 1708435) und auf die Importmöglichkeiten hingewiesen. Leider kann der durch den Recorder aufgezeichnete Code nur einmal ausgeführt werden. Wieder wurde mir geholfen und der generierte Code so erweitert, dass er nun mehrfach lauffähig ist (Thread 1708874)
Jetzt habe ich ein weiteres Problem: regelmäßig erstelle ich die CSV-Files und importiere sie in eine gemeinsame Excel-File. Dort können nun verschiedene Auswertungen gemacht werden.
Nun bin ich gerade dabei, eine neue Auswertung zu erstellen. Allerdings hatte ich dort schon mehrfach Probleme. Der Grund: in der mit "ActiveWorkbook.Queries.Add" erzeugten Tabelle ist gelegentlich (manuell) ein Autofilter gesetzt, und mir gelingt es nicht, dieser Filter per VBA zu löschen. Deshalb möchte ich sicherheitshalber immer zuerst alle möglichen Filter löschen. Verzichte ich darauf, sind meine Folgeergebnisse falsch.
Ich habe das von "Case" erweiterte Makro zusammen mit einem 2. Makro, in welchem ein möglicher Filter gelöscht werden soll, als xlsm-File bereitgestellt. Wird das 2. Makro ausgeführt, und ist ein Autofilter gesetzt, ist das Ergebnis ein Laufzeitfehler 1004. Auch die Eingabefile habe ich beigefügt, um die Excel-Tabelle ggf. neu generieren zu können.
https://www.herber.de/bbs/user/131791.xlsm
https://www.herber.de/bbs/user/131792.txt
Meine Frage: wie kann ich mögliche Filter löschen?
Gruß
Werner