Office: (Office 2007) mit Autofilter mehrere Blätter gleichzeitig filtern

Hallo. Ich habe folgendes Problem, bei dem Ihr mir hoffentlich helfen könnt. Leider bin ich im Internet bei meiner Suche bisher nicht fündig geworden. Habe nur ähnliche Probleme finden können, aber leider nicht das gleiche. Ich arbeite mit Excel 2007 und habe von Makros leider überhaupt keine Ahnung. Daher hatte ich mir einen Code aus dem Internet besorgt, der aber leider nur bedingt funktioniert. Folgendes Problem:
Ich habe eine Excel-Datei mit etlichen Tabellenblättern, die bis auf das erste Blatt alle gleich aufgebaut sind. Es handelt sich um Ausstattungslisten mit lfd. Nr., Typ, Bezeichnung, Anzahl, Preis etc.
In der Spalte B („Typ“) stehen Abkürzungen wie z.B. „LA“, „FE“, „LM“ usw., die teilweise nur in einem Tabellenblatt vorkommen, teilweise aber auch in anderen. Sie sind also in den einzelnen Blättern wild durcheinandergemischt.
Über der Liste ist in jedem Blatt ein Autofilter, mit dem ich die verschiedenen Spalten filtern kann.
Mein Ziel ist es jetzt, am Anfang der Datei ein Tabellenblatt anzulegen, in dem alle verschiedenen Typen aufgelistet sind, die in der gesamten Datei (also in allen Blättern) vorkommen. Nun möchte ich in diesem ersten Blatt die verschiedenen Typen beliebig kombiniert filtern können, damit dann in jedem Blatt der Filter so gesetzt wird, wie ich es im ersten Blatt eingestellt habe.
Dazu haben ich folgenden Code im Internet gefunden:
Code:

Wenn ich nun in Blatt 1 die Typen selektiere und in Spalte A1 doppelklicke, dann übernimmt er die Selektion auf alle anderen Blätter. Dies funktioniert weitestgehend auch, allerdings kommt relativ schnell, wenn ich verschiedene Selektionen (bzw. Kombinationen) durchteste, die Fehlermeldung
Laufzeitfehler ´1004´ : Anwendungs- oder objektdefinierter Fehler

Wenn ich dann auf „Debuggen“ klicke, wird mir in dem Code die Zeile

arrFilter(iXF, 3) = .Criteria2

gelb markiert angezeigt.


Ich hoffe ich habe das Problem gut und verständlich geschildert und hoffe, ihr habt eine Lösung für mich. Über jede Hilfe bin ich euch seehr dankbar! Erst einmal vielen Dank im Voraus.

:)

 

Hat niemand ne Idee? Bitte, ist wirklich wichtig...

 

Hi,

wie du an der Anzahl bereits vorhandener Antworten sehen kannst, weiß offensichtlich niemand so Recht, wie man dir helfen könnte. Deinen Code müsste man mal an der Originaldatei testen können, sonst kann man nur raten: kann es sein, dass irgendwann mal Criteria2 nicht belegt ist? Vielleicht solltest du das vorher prüfen, bevor du den Autofilter in den anderen Tabellenblättern setzt.

 

Ersteinmal danke für die Antwort.

Die Datei ist leider mit 3,3 mb zu groß zu hochladen. Habe sie deshalb bei uploaded.to hochgeladen, ich hoffe das ist okay.

http://ul.to/m5k4ct1q

Sie ist im xls.-Format gespeichert, da ich die Datei nicht allein bearbeite und der andere nur Excel 2003 besitzt. Jedoch habe ich auch versucht, die Datei als .xlsx mit Makros abzuspeichern, hatte aber die gleiche Fehlermeldung. Das mit Criteria 2 nicht belegt verstehe ich nicht, wie gesagt ich kenne mich mit der Materie leider nicht aus da ich bisher immer ohne Makros ausgekommen bin.

Kurze Erklärung zur Datei:

Das Blatt Zusammenfassung ist nur eine Übersicht. In dem Blatt "Schaltblatt" stehen in Spalte 2 alle Typen, nach denen gefiltert werden kann bzw. die in den anderen Blättern auch alle vorkommen. Dort soll also für die anderen Blätter gefiltert werden.
Den Code hatte ich bei -> rechte Maustaste auf Schaltblatt-> Code anzeigen eingefügt.

 

Hallo Caleb99,

ich habe das jetzt einige Male mit verschiedenen Kombinationen getestet und bei mir gab es keine Abstürze und die Blätter wurden korrekt gefiltert.

P.S.: Da es sich um ein Projekt in einer Schule handelt - gemäß schreibt man auch in der neuen deutschen Rechtschreibung mit "ß" - es sei denn, es handelt sich um die Schweiz. *biggrin.gif*

 

Da hast du natürlich völlig recht *grins

Mit welcher Excel-Version arbeitest du? Bei mir hatte es anfangs auch funktioniert, beim testen mit 1 oder 2 Selektionen. Jetzt kommt aber fast immer die Fehlermeldung. Ich verstehe es nicht...dann müsste der Code ja theoretisch korrekt sein. Kann das vielleicht an irgendwelchen Excel-Einstellungen liegen?

Ich werde es heute Abend mal an nem anderen Rechner und mit ner anderen Excel-Version testen

 

Habe es jetzt mal zu Hause mit Excel 2010 getestet, da kommt die Fehlermeldung leider auch.

 

Versuch doch mal festzustellen, bei welchen Filterkriterien der Fehler auftritt. Dann kann man versuchen, das nachzuvollziehen.

 

Ich konnte nun endlich testen, wann der Fehler auftritt.

Es ist so, dass die Fehlermeldung immer dann kommt, wenn im Filter mehr als 2, aber nicht alle Kriterien ausgewählt werden.

Soll heißen, wenn ich LA, FE, LM, ELT und FA/IBS habe, kommt die Fehlermeldung, wenn ich von diesen 3 oder 4 gleichzeitig auswähle.

Ich kann also in diesem Beispiel problemlos 1,2 oder alle 5 gleichzeitig auswählen.

 

der Autofilter der Excelversionen ab 2007 arbeitet anders als in den Vorgängerversionen, in denen man meines Wissens maximal 2 Filterkriterien angeben kann. Du musst in deinem Code also nach den Versionen unterscheiden und jeweils getrennte Codes schreiben. Vielleicht wäre das eine Möglichkeit:

Code:

Ich bin davon ausgegangen, dass die Filterung ja generell nach Spalte B erfolgen soll, bzw. dies das Kriterium für die anderen Tabellenblätter sein soll - oder habe ich das falsch verstanden?

Ich habe jetzt nicht generell auf alle Varianten an Fehlerroutinen geachtet, eventuell musst du diese noch ergänzen.

 

Das heißt, ich müsste aus der einen Datei 2 machen, eine für Excel bis 2003 und eine für Excel ab 2007? Das wäre schlecht realisierbar, da ich halt nicht der einzige bin der dann damit arbeiten muss. Da müssen quasi von mehreren Leuten Änderungen vorgenommen werden.

Das ist völlig richtig, gefiltert wird in Spalte B (in "Schaltblatt") und die gefilterten Daten sollen auf die anderen Räume (Tabellenblätter) übernommen werden.

Mit dem neuen Code funktioniert es unter Excel 2007 und 2010 auch nicht richtig. Excel 2003 kann ich zur Zeit nicht testen.

Jetzt ist es genau umgekehrt...wenn ich eins oder zwei selektiere, kommt die Meldung "Laufzeitfeher 13, Typen unverträglich" und bei debuggen wird die Zeile arrFilter() = .Criteria1 gelb markiert.
Wenn ich aber 3 oder 4 gleichzeitig auswähle funktioniert es.

Wenn ich dann aber wieder alle einschalten möchte, kommt die Fehlermeldung "Laufzeitfehler 5 - Ungültiger Prozeduraufruf oder ungültiges Argument" und bei Debuggen wird mir das arrFilter() = Application.Substitute(arrFilter(), "=", "") gelb markiert

 

dann unterscheiden die Versionen ab 2007 offensichtlich 3 Zustände:

- 1 Kriterium
- 2 Kriterien
- mehr als 2 Kriterien

Das hatte ich nicht berücksichtigt.

Code:

Sicher kann man den Code noch verfeinern, aber so sollte er prinzipiell erst einmal funktionieren.

 

Super, funktioniert absolut einwandfrei! Vielen Dank!

Ich kann es jetzt leider nur mit 2007 testen.
Mit excel 2003 dürfte es dann jetzt aber nicht funktionieren oder? Bzw. ist technisch nicht möglich?

 

doch, funktioniert auch mit Excel2003 - der Code unterscheidet nach Excel-Version vor 2007 oder ab 2007.

 

Super. Dann habe ich nur noch eine Frage. Ich habe jetzt eine Befehlsschaltfläche (ActiveX-Steuerelement) eingefügt, um den Filter damit anzuwenden und nicht die Zelle A1 mit Doppelklick nutzen zu müssen. Das funktioniert mit 2007 problemlos. Unterstützt Excel 2003 das auch?