Office: Makro: Filter ausschalten und Tabellenblätter justieren

Hallo,

ich bräuchte ein Makro, was bei Ausführung alle Autofilter in allen Datenblättern auf "Alle anzeigen" schaltet, in jedem Tabellenblatt nach links oben scrollt und das erste Tabellenblatt einblendet.

Ist sowas einfach möglich?

Vielen Dank und beste Grüße,

Boro

 

dukannst das mit Macro aufzeichnen machen

unter Extra/Makro/Aufzeichnen

dann gibst du dem Makro einen namen

drückst OK

das Macro zeichnet nun deine Aktionen in Excel auf

nunmachst du einfach all das was das Makro machen soll wenn es gestartet wird.

Srollen, Löschen, zurücksetzen... einfach einmal das tun was das Makro machen soll.

Danach beenden und fertig
das Macro ist nun abgespeichert und seinsatzbereit

du erstellst nun eine shcaltfläche oder ähnliches auf das das Makro reagiert wenn man drauf klickt :)


ich hoffe das hat geholfen

Gruß
Lucor

 

Folgendes Makro wählt die Tabelle mit dem Namen Tabelle1 aus lässt alle anzeigen und geht dann in Zelle A1.

Code:

Sub test()
Worksheets("Tabelle1").Select
ActiveSheet.ShowAllData
Range("A1").Select
End Sub

 

Hallo,

vielen Dank, das ist genau das, was ich gesucht habe.
Ich bräuchte allerdings noch eine Erweiterung um das alles automatisiert vor dem Speichern der Datei zu machen. Gibt es keine Funktion onClose oder so ähnlich?

Sinn wäre, beim Speichern bei allen Sheets alle Filter rauszunehmen.

Tausend Dank und beste Grüße,

Boro

 

Hallo nochmal,

also es funktioniert jetzt mit der Private Sub Workbook_Open() Methode, allerdings gibts einen Laufzeitfehler, wenn das aktuelle Sheet gar keine Filter enthält :-?

Worksheets("Test").ShowAllData
Worksheets("Test").Range("A1").Select

Bricht mit einem Laufzeitfehler ab, wenn kein Filter in "Test" gesetzt.

Danke und Gruß,

Christian

 

Naja wenn ein Sheet keinen FIlter hat lässt sich der Fehler nicht vermeiden. Ob es die Funktion on close gibt weiß ich ehrlich gesagt nicht. Frag mal Google.

 

Die Sheets haben ja einen Filter, es sind halt nur keine Zeilen gefiltert. Falls in einer Spalte eine Filterung vorhanden ist, funktioniert es tadellos, stehen aber alle Spalten auf "Alle" gibt es den Laufzeitfehler.

Das Problem mit dem onClose habe ich durch Workbook_Open() ersetzt und damit gelöst.

Danke,

Boro