Beim Öffnen alle Filter deaktivieren/löschen
07.02.2014 13:48:33
Timo
ich würde gerne meiner Exceltabelle ein Makro zuweisen um beim Öffnen zunächst alle Filter einer formatierten Tabelle1 zu deaktivieren/löschen. Im gleichen Schritt soll dann eine der Spalten nach einem bestimmten Kriterium gefiltert werden (Nach jedem Start ist also nur ein Filter aktiviert).
Ich habe mir bereits folgenden Lösungsansatz überlegt, weiß aber nicht wie man daraus ein zusammenhängendes Makro macht, bzw. ob das überhaupt der richtige Ansatz ist:
Erster Schritt: Alle Filter entfernen
Sub workbook_open()
Sheets("Tabelle1").ShowAllData
End Sub
Zweiter Schritt: In Spalte S einen Filter setzen, bei dem alle Zellen die einen Wert enthalten rausgefiltert werden:
Sub Filter()
Range("A1:AW1200").AutoFilter field:=19, Criteria1:=""
End Sub
Hat jemand eine Idee wie ich mein Vorhaben umsetzen kann?
Viele Grüße und im Voraus vielen Dank für jede Hilfe!