Liebes Forum
Ich bin langsam etwas am verzweifeln mit einem VBA Code meines Dokuments.
Zur Situation:
In meinem Excel ist eine Tabelle "Zuschnittsplanung" welche sich über diverse Buttons filtern lässt. Diese Filter setze ich immer über ActiveSheet.ListObjects("Zuschnittsplanung").Range.AutoFilter
Über diesen Code lasse ich den Filter wieder entfernen:
If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Leider funktioniert das nicht immer und bei gewissen Konstellationen erhalte ich die Fehlermeldung "die showalldata-methode des worksheet-objektes konnte nicht ausgeführt werden".
Ich habe bereits intensiv im Forum gelesen, Google genutzt usw. und noch keine Lösung gefunden, das Problem zu beheben. Deshalb wende ich mich an euch mit der Hoffnung, dass mir jemand weiterhelfen kann.
Ja, ich bin mir bewusst, dass der Code nicht perfekt ist und seitens Performance und Nachvollziehbarkeit optimiert werden kann, ich bin noch am Üben. Daher auch die vielen auskommentierten Stellen. Bei diesem Beitrag geht es nur darum die Filter löschen-Funktion zum laufen zu bringen.
Hier die Beispieldatei:
https://www.herber.de/bbs/user/138812.xlsm
Grüsse
Sandro