Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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) ;-)

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

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

36 Forumthreads zu ähnlichen 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
Anzeige
'Datei öffnen' - Dialog mit Filter
Stefan

Guten Morgen zusammen,
ist zwar noch früh, aber ich frage schon mal in die Runde, ob mir jemand helfen kann.
Ich habe verschiedene Dateien (auch Word, bekomme ich aber mit CreateObject hin), die alle zum Anfang des Dateinamens eine Ordnungszahl (z.B. 130) haben. Nun möchte ich den 'Öffn...
08.04.2010 08:29:26
Thread-ID: 1150564
13 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
Anzeige
Datei öffnen mit Userabfrage
morgandalf

Schönen guten Morgen allesamt,
bin seit einiger Zeit am schauen und rumbasteln, komm aber nicht weiter.
Kann mir jemand mit folgendem problem helfen:
Wie bekomme ich es hin, dass eine Excel-Datei nur von bestimmten Benutzern ohne Passwortabfrage geöffnet werden kann.
Ich hab hie...
01.01.1970 00:00:00
Thread-ID: 1218101
56 Beiträge
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
2
12
1
5
55
8
3
5
14
6
1
3
4
2
5
9
3
2
7
3
7
1
3
4