Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei "Datei schließen" Filter etc. zurücksetzen

Forumthread: Bei "Datei schließen" Filter etc. zurücksetzen

Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 16:01:11
Stefan
Hallo,
ich suche eine Möglichkeit, um beim Schließen einer Datei gleichzeitig alle Filter und ausgeklappten Gruppierungen zurückzusetzen ("aufräumen").
Da die Datei von vielen Personen genutzt wird wäre es schön, wenn die Herrschaften vor dem Schließen dafür keine eigene Schaltfläche klicken müssen- machen nämlich dann die wenigsten (Motto: hinter mir die Sintflut)
Hat jemand eine Idee?
Grüße,
Stefan

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 16:18:50
Matze
Hallo Stefan,
ob ich dir helfen kann weis ich noch nicht aber was meinst du mit "alle" Filter
- Den Autofilter , auf "allen" Sheets ?
- vermutlich "alle" Gruppierungen in "allen" Sheets ?
Option Explicit
'Ereignis bevor die Mappe geschlossen wird
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim blatt As Object
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
For Each blatt In Sheets
'Dein Codezeile was er in Jedem Blatt erledigen soll
blatt.Visible = True 'blendet alle Sheets ein
Next blatt
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

hier ein kleines Beispiel,
Gruß Matze

Anzeige
AW: Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 16:40:42
Stefan
Hallo Matze,
also die Datei hat nur ein Sheet- hier sollen allfällig gesetzte Einschränkungen im Autofilter zurückgesetzt (der Autofilter selbst aber nicht entfernt!) und die Gruppierungen alle eingeklappt werden (links also nur noch die "Plus-Zeichen" sichtbar, keine "Minus" mehr; ist jetzt zwar total primitv ausgedrückt, aber was soll's)
Wenn Dein Beispiel das umsetzt- was mache ich dann mit dem Code? Habe in VBA bisher nur aufgezeichnet...
Grüße,
Stefan

Anzeige
AW: Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 16:48:07
Matze
Hallo Peter,
darfst du die Datei hier einstellen, dann verwende dazu den FileUpload
"fcs" hat dir einen kompletten schön strukturierten Code geschrieben,
der muss halt dann auf die Datei angepasst werden,
Gruß Matze

AW: Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 17:29:01
Stefan
Hallo Matze und auch alle anderen, die sich bisher beteilgt haben!
Habe eine vereinfachte Demodatei hochgeladen- beim Schließen der Datei sollten wie gesagt Autofilter zurückgesetzt und die Gruppierungen zusammengeklappt werden, also schön aufräumen.
Wenn möglich, ohne dafür seperat auf eine Schaltfläche klicken zu müssen.
https://www.herber.de/bbs/user/93295.xlsx
Grüße,
Stefan
(Peter kommt später) ;-)

Anzeige
dann so,..
22.10.2014 17:42:24
Matze
Hallo Peter,
VBA Editor öffnen, links doppelklick auf dieseArbeitsmappe, recht dann den unteren Code einfügen.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End If
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=0
End Sub

Die Datei bekommt dann die Endung .xlsm !!!!!!!!!
Gruß Matze

Anzeige
Sorry für den Peter, By Stefan owT
22.10.2014 17:45:05
Matze

AW: Sorry für den Peter, By Stefan owT
23.10.2014 15:06:10
Stefan
Hallo,
danke an alle, funktioniert super!
Lg
Stefan

AW: Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 16:56:04
Patrick
Hallo Stefan
Filter zurückzusetzen: 
With ActiveSheet
If .FilterMode Then .ShowAllData
End With
Das mit der Gruppierung habe ich noch nicht hingekriegt, werde aber noch ein wenig versuchen.
Gruss
Patrick

Anzeige
evtl. hilft auch -> ShowAllData ...owT
22.10.2014 16:26:08
Matthias

AW: Bei "Datei schließen" Filter etc. zurücksetzen
22.10.2014 16:32:32
fcs
Hallo Stefan,
per Ereignis-Makro kann man vor dem Schließen der Datei die Anzeige der Tabellenblätter in einen Grundzustand setzen. Allerding müssen dann die ANwender beim Öffnen der Datei auch die Makros aktiivieren.
Fall die Blätter mit Blattschutz geschützt werden, dann muss der Blattschutz ggf. auch kurzzeitig deaktiviert und wieder aktiviert werden.
Gruß
Franz
'Code im VBA-Editor unter DieseArbeitsmappe der Datei
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim bolSaved As Boolean, wks As Worksheet
bolSaved = Me.Saved
For Each wks In Me.Worksheets
Select Case wks.Name
Case "Filter", "Filter (2)"
'Autofilter in diesem Blatt zurücksetzen
With wks
If .AutoFilterMode = True Then
If .FilterMode = True Then
.ShowAllData
End If
End If
End With
Case "Gruppierung"
'Ebenen der Gruppierung in diesem anzeigen
With wks
.Outline.ShowLevels Rowlevels:=4, columnlevels:=3
End With
Case Else
'do nothing
End Select
Next
If bolSaved = True Then Me.Save
End Sub

Anzeige

Forumthreads zu verwandten Themen

Konvertierung Zahlen bei Datei-Öffnen mit Makro
Patrick

Hallo zusammen,
mir liegt eine Excel-Datei vor, die mir SAP zur Verfügung stellt.
Öffne ich diese Datei normal, dann werden Zahlen ganz normal angezeigt. Öffne ich diese Datei aber mit diesem Makro:
Dim strFilename 'Dateiname
Dim wbkWorkbook As Workbook 'Arbeitsmappe
strFile...
06.08.2009 16:10:07
Thread-ID: 1094113
10 Beiträge
Datei Öffnen mit Vorauswahl der Datei
Stefan

Hallo zusammen,
ich habe verschiedene Dokumente, die alle mit der gleichen Ordnungsnummer beginnen und als Dateinamen dann verschiendene Endungen haben. Nun möchte ich gern mit der Dialogbox Fileopen z.B. alle Dokumente mit der Ordnungsnummer 130 anzeigen lassen. Ich habe das mit der getope...
07.04.2010 15:00:25
Thread-ID: 1150494
3 Beiträge
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
"Datei öffnen"-Dialog mit Pfadvorgabe
Holger

Hallo Excelaner,
wie kann ich eine Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat),")
Anweisung auf einen fixen Pfad (z.B. "H:/Test/" ) ausführen?
Es soll also im "Datei öffnen"-Dialog der Pfad schon vorbelegt werden.
Für Hilfe wäre ich sehr dankbar!
Gruß Holge...
12.01.2011 14:51:59
Thread-ID: 1195263
6 Beiträge
Anzeige
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Anzeige
Autofilter bein Schließen zurücksetzen
stormlamp

Hallo,
aus dem Forum habe ich zum Aufheben der Autofiltereinstellungen folgenden Code gefunden und mit dem Passwortschutz ergänzt:
------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim wksSheet As Worksheet For Each wksSheet In ThisWorkbook.Worksheets With wksSh...
10.04.2013 12:06:36
Thread-ID: 1308117
4 Beiträge
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
Anzeige
Datei öffnen mit fortlaufendem Namen.
Arif

Hallo,
mein Code hat das Ziel, eine Datei zu öffnen deren Namen sich jeden Tag ein klein wenig ändert.
Jeden Tag wird diese Datei aktualisiert, mit aktuellem Datum im Namen
(Bsp. 20140109_Test.xlxs)
Das Datum ist immer im "yyyymmdd" Format und den Zusatz nenne ich einfach mal "t...
01.09.2014 11:09:01
Thread-ID: 1379278
15 Beiträge
Datei öffnen mit VBA
Friedhelm

Hallo in die Runde,
ich habe aus einem Verzeichnis eine Excel Datei geöffnet. Ich möchte mit einem Makro das gleiche Verzeichnis öffnen, damit ich eine weitere Excel Datei öffnen kann.
Die Namen der Dateien sollen dann in den Variablen WB1, WB2 stehen, so das ich die Dateien gezielt aus...
27.01.2015 16:58:17
Thread-ID: 1405414
7 Beiträge
Gruppieren und Berichtsfilterseiten nicht möglich
Marus

Hallo,
ich habe eine Pivottabelle erstellt (Basis ist Powerpivot mit berechneten Feldern)
Leider kann ich sowohl keine Gruppierung über die 1. Spalte (Text) noch sind
Berichtsfilterseiten möglich (beides gegraut).
Keine Leerzeilen, alles als Text formatiert.
Was können die G...
28.01.2015 14:58:44
Thread-ID: 1405751
2 Beiträge
Anzeige
Datei öffnen mit eigenem Menüpunkt
Dieter(Drummer)

Guten Tag, Spezialisteb/Spezialistinnen,
wie kann ich eine bestimmte Datei über einen eigenem Menüpunkt (s. Bild) direkt öffnen.
Die Datei liegt auf: C:\General\MxDivers\ButtonKnopfMuster.xlsm. Der Menüpunkt heißt: Buttons öffnen.
Mit der Bitte um evtl. Hilfe und
Gruß, Dieter(Dr...
14.10.2015 11:13:55
Thread-ID: 1452231
4 Beiträge
Kriterien in Autofilter beim Schließen entfernen
Jens
Hallo,
gibt es eine Möglichkeit in einem Autofilter beim Schließen der Datei alle ausgewählten Kriterien wieder zu entfernen, sodass dann beim Start der Datei immer alle Datensätze vorhanden sind?
Wenn ja wie realisiert man sowas?
Gruß
17.03.2016 08:41:36
Thread-ID: 1482502
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Excel Filter beim Schließen automatisch zurücksetzen

Schritt-für-Schritt-Anleitung

Um alle Filter in Excel beim Schließen einer Datei automatisch zurückzusetzen, kannst Du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle die richtige Arbeitsmappe:

    • Klicke im Projekt-Explorer auf "DieseArbeitsmappe".

  3. Füge den folgenden Code ein:

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If ActiveSheet.AutoFilterMode Then
       If ActiveSheet.FilterMode Then
           ActiveSheet.ShowAllData
       End If
   End If
   ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=0
End Sub

  4. Speichere die Datei als Makro-fähige Arbeitsmappe:

    • Speichere die Datei mit der Endung .xlsm.

  5. Teste das Makro:

    • Schließe die Datei und überprüfe, ob die Filter zurückgesetzt und die Gruppierungen eingeklappt sind.

Häufige Fehler und Lösungen

  • Fehler: "Filter löschen nicht möglich"

    • Stelle sicher, dass Du das richtige Blatt aktiv hast und dass der Autofilter aktiv ist.

  • Fehler: Das Makro funktioniert nicht

    • Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Einstellungen für Makros und aktiviere die Option.

Alternative Methoden

  1. Excel-Tastenkombination: Um alle Filter schnell zurückzusetzen, kannst Du die Tastenkombination ALT + D + F + F verwenden, um den Autofilter zu deaktivieren und dann erneut zu aktivieren.

  2. Button für das Zurücksetzen:

    • Du kannst einen Button in Excel einfügen, um alle Filter zurückzusetzen. Füge einen Button über Entwicklertools > Einfügen > Schaltfläche hinzu und verknüpfe ihn mit einem Makro, das die Filter zurücksetzt.

Praktische Beispiele

  • Beispiel 1: Filter zurücksetzen mit VBA:

    Sub AlleFilterZurücksetzen()
   If ActiveSheet.AutoFilterMode Then
       If ActiveSheet.FilterMode Then
           ActiveSheet.ShowAllData
       End If
   End If
End Sub

  • Beispiel 2: Gruppierungen zurücksetzen:

    Sub GruppierungenZurücksetzen()
   ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=0
End Sub

Tipps für Profis

  • Automatisierung mit Ereignis-Makros: Nutze Ereignis-Makros, um Filter automatisch zurückzusetzen, wenn Du die Datei öffnest oder schließt. Dies verbessert die Benutzerfreundlichkeit.

  • VBA-Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in Deinen VBA-Code, um unerwartete Fehler zu vermeiden und eine bessere Nutzererfahrung zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich alle Filter in Excel zurücksetzen, ohne ein Makro zu verwenden?
Du kannst die Filter manuell zurücksetzen, indem Du auf das Filter-Symbol klickst und "Alle auswählen" wählst.

2. Gibt es eine Tastenkombination, um alle Filter zurückzusetzen?
Ja, Du kannst die Tastenkombination ALT + D + F + F verwenden, um die Autofilter zu deaktivieren und sie anschließend wieder zu aktivieren.

3. Kann ich ein Makro erstellen, das beim Öffnen der Datei die Filter zurücksetzt?
Ja, Du kannst das Workbook_Open-Ereignis verwenden, um Filter beim Öffnen der Datei automatisch zurückzusetzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige