Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter automatisch zurückstellen

Filter automatisch zurückstellen
25.12.2004 13:12:55
w.walter
Hallo Excel-Profi´s
Ich habe eine Tabelle, wo über alle Spalten ein Autofilter gesetzt ist.
So kann ich alle Teilergebnisse auslesen, doch es passiert immer wieder, daß die Datei mit gesetzten Filter gespeichert wird.
Ein anderer Anwender,der nicht darauf achtet und einen anderen Filter setzt, dann stimmt das Ergebnis natürlich nicht und so treten immer wieder Fehler auf.
Ist es möglich, den Filter automatisch beim öffnen der Datei zurückzusetzen, sodaß alle wieder auf stehen.
Grüße w.walter

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.ShowAllData
ransi
hallo walter
Probier mal so:

Private Sub Workbook_Open()
Worksheets("Tabelle1").ShowAllData
End Sub

ransi
AW: .ShowAllData
25.12.2004 13:54:37
w.walter
Hallo ransi
Habe das Makro mal reingesetzt, doch es klappt so nicht.
Der Filter wird nicht automatisch nach dem öffnen zurückgesetzt.
w.walter
AW: .ShowAllData
ransi
hallo walter
habs grade mal bei mir getestet, läuft einwandfrei.
hast du den namen für "Tabelle1" angepasst?
oder ist da noch irgendein blattschutz gesetzt der die anzeige verhindern könnte?
ransi
AW: .ShowAllData
25.12.2004 14:40:40
w.walter
Du hast recht, es gibt da einen Blattschutz
Damit man den Filter setzen kann muß man auf ein Button drücken der den Blattschutz aufhebt.
Hier das Makro

Sub FilternAuchBeiBlattschutz()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub

Es gibt dann noch ein Makro, daß alle Dateien die in dem Verzeichnis stehen, ausliest und die Daten in diese Datei übernimmt. Dieses Makro wird auch mit einem Button gestartet. Bevor der Auslesevorgang beginnt, sollen die Filter zurückgestzt werden.
Hoffe es wird nicht zu kompliziert.
viele Grüße, w.walter
Anzeige
ShowAllData
Beate
Hallo Walter,
lösche dein FilternAuchBeiBlattschutz-Makro und füge statt dessen folgenes Makro ins Codefenster "dieseArbeitsmappe":

Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
'alle Filter aufheben
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Worksheets
blatt.Activate
If blatt.FilterMode Then blatt.ShowAllData
Next blatt
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Die ersten und letzten drei Zeilen dienen der Makrobeschleunigung und damit es nicht so unruhig abläuft. Dann läuft dein bisheriger Code ab, zusätzliche Buttonaktivierung überflüssig. Dann durchläuft der Code alle Tabellenblätter und hebt eventuell gesetzte Autofilter alle auf.
Gruß,
Beate
Anzeige
AW: ShowAllData
25.12.2004 15:28:27
w.walter
Hallo Beate
Irgendwie schaffe ich es nicht.
Normalerweise bin ich nicht so schwer von Begriff, doch hier verliere ich den Überblick.
Hast du genügend Zeit und Interesse, ich würde dir die Datei zusenden.
Es ist nicht einfach zu beschreiben was die Makros so alles abarbeiten.
Ansonsten läuft alles hervorragend, nur mit diesen Filter passieren immer wieder Fehler.
viele Grüße
w.walter
ShowAllData
Beate
Hallo Walter,
starte jetzt zu einer großen Familienweihnachtsfeier, deshalb länger weg (später Abend).
Solltest du immer noch hängen, hier meine Mail-Adresse: Beate_Schmitz60@web.de
Wenn keine vertraulichen Daten drin sind, kannst du die Datei auch direkt im Forum hochladen und breiteren Helferkreis ansprechen.
Gruß,
Beate
Anzeige

35 Forumthreads zu ähnlichen Themen

Filtern, Sverweis geht wohl nicht?
Angela

Hallo,
Habe im Tab 1 eine sehr lange Liste, ca von B5:C5000.
Nun möcht ich gern auf Tab 2 eine neue Liste erstellen, ausgehend von Tab 1 B5:B5000 über Combobox oder anders eben.
Es soll auf Tab 2 durch selektion Daten ausgewählt werden und in Tab2 geschrieben werden.
Angenommen...
17.01.2009 21:29:04
Thread-ID: 1041000
25 Beiträge
Anzeige
MAKRO Autofilter alle auf (Alle)
Marcy

Hallo zusammen,
per Recorder habe ich paar Makros aufgezeichnet, die Filter in der Zeile 3 setzen.
Diese habe ich dann Textfelder zugewiesen (es geht um eine Tabelle für einen Excelneuling)
Jetzt benötige ich ein Makro, der alle Filter in Zeile 3 auf (Alle) setzt.
Diesen würde i...
01.03.2011 08:38:08
Thread-ID: 1203544
3 Beiträge
AddIn Symbolleiste - AddIn löschen geht nicht
Claudia

Hallo alle zusammen,
ich verzweifel seit einigen Stunden und hoffe Ihr könnt mir helfen.
Ich hatte mal ein AddIn welches aber gelöscht wurde. In der Symbolleiste unter AddIn wird aber dieses AddIn weiter angezeigt und ich kann es beim besten Willen nicht löschen.
Unter Datei -- Opit...
26.05.2011 01:57:43
Thread-ID: 1216039
5 Beiträge
Anzeige
Filter geht nicht :-(
Marcy

Hallo zusammen,
ich nutze sehr viel die Filter.
Hat jemand eine Idee, warum ich in meiner immer größer werdenden Datei Problme mi dem Filter bekomme?
Der Filter ist sichtbar, aber es zeigt keine Auswahlmöglichkeit an.
Ist mir völlig unverständlich.
Blattschutz ist nicht gese...
04.06.2014 14:09:22
Thread-ID: 1364591
4 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
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
Profil löschen geht nicht
Sdravi

Hy,
aus irgendeinem Grund werd ich ingnoriert möchte mein
Profil löschen was nicht funktioniert, wieso?
Mfg
23.05.2016 22:05:27
Thread-ID: 1494944
2 Beiträge
Profil löschen geht nicht
Sdravi

Hy,
aus irgendeinem Grund werd ich ingnoriert möchte mein
Profil löschen was nicht funktioniert, wieso?
Mfg
23.05.2016 22:05:49
Thread-ID: 1494945
2 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
24
1
2
4
3
3
1
4
1
1
1
1
4
8
2
7
3
2
3
3
3
2
12
4
2