Office: Filter über mehrere Sheets

Hallo zusammen,

ich habe schon etliches versucht und die foren durchstöbert, aber leider nix gefunden.

Ich habe eine tabelle die über mehrere sheets geht.
Gefiltert wird zunächst nur auf dem ersten sheet z.b. nach grösse.

Nun möchte ich erreichen, dass wenn ich nach einem bestimmten detail (Grösse) auf dem ersten sheet filter, die folgenden sheets auch nur die datensätze (zeilen) angeben, die im ersten sheet dem detail entsprechen.

Jede Idee ist willkommen.

Danke,

Jochen

 

Hallo!

Leider verrätst du äußerst wenig über deinen Tabellenaufbau, daher hier eine stilisierte Lösung mittels eines VBA-automatisierten Spezialfilter. In Spalte H werden die Filterkriterien angegeben.

 

Danke Schatzi

Das sieht super aus mit dem Spezialfilter.

Leider kenne ich mich mit dem Auf- Einbau eines VBA Spezialfilter nicht so gut aus.

Ich arbeite mit dem Autofilter. Wie intergriere ich den VBA Filter in eine Tabelle?


Meine Tabelle ist folgendermassen aufgebaut:

Sheet 1: ID, Name, Grösse,

Sheet 2: ID (wird automatisch mit einem ='Sheet1'A1 übernommen), Anzahl Ankäufe 2005, Gebühren 2005, etc...

Sheet3: ID (wird automatisch mit einem ='Sheet1'A1 übernommen), Anzahl Ankäufe 2006, Gebühr 2006, etc...

Hoffe es wird nun deutlicher...

 

Hallo!

Wenn ich's richtig verstanden habe, dann müsste es im Anhang jetzt passen.

 

Weltklasse! Genau das was ich gesucht habe.

Nur leider klappt es bei der Umsetzung noch nicht ganz bei mir.

Ich richte den Autofilter im Datenblatt 1 ein und den Spezialfilter in Datenblatt 2. Jedoch tut sich nichts in Datenblatt 2 , wenn ich einen Filter in Datenblatt 1 aktiviere.

Habe im Anhang mal eine vereinfachte Tabelle mit dem Problem hochgeladen.

Liege ich mit dem Kriterienbereich falsch?

 

Hallo!

Ich kann in deiner Mappe lediglich einen Autofilter erkennen.
Ich sehe keinen Spezialfilter und keinen Kriterienbereich; allerdings ist das auch nicht mehr nötig, da ich für dich ja auch extra auf den Autofilter umgestiegen bin.

Was dir offensichtlich nicht klar ist, ist die Tatsache, dass der Filter im Beispiel mit VBA ausgewertet wird, da ich in deiner Datei auch keinerlei VBA-Code finden kann.

Drücke in meiner (zweiten) Datei mal Alt+F11 und doppelklicke dann oben links auf "DieseArbeitsmappe".
Im Codefenster rechts siehst du nun das Herzstück der Zauberei.

 

Ok, denke ich habe verstanden, dass ich da nicht so auf dem laufenden bin;) Aber es klappt nun schon einmal.

Eine Frage noch.

muss ich hinter "With Sheets" nun alle meine Datenblätter eingeben? wenn ja, wie ist die schreibweise?

With Sheets ("Tabelle 1", "Tabelle 2", etc...)

Vielen Dank für deine Hilfe!

 

Das tool funktioniert wirklich sehr gut.

Die Tabelle hat eine Dimension von Zeilen: 800 Spalten bis AX. Bei 11 Tabellenblättern. Knapp 200.000 Einträge.

wenn ich nun einen filter in datenblatt 1 setzte und mit die anderen datenblätter anschaue, braucht die automatische filterung ca. 3-5 sekunden. damit kann ich gut leben.

wenn ich nun aber auf datenblatt 1 zurückgehen braucht es mehr als eine minute um etwas wieder eingeben zu können.

kann man da was an der geschwindigkeit tun? oder warum rechnet er überhaupt wenn man auf das Datenblatt 1 zurückkehrt?

 

Hallo!

Hinter "With Sheets" kommt nur das Blatt, in dem du den Autofilter setzt.
Angewendet wird der Code dann auf sämtliche anderen Blätter der Mappe. Wenn du den Code nur in einigen Blättern laufen lassen möchtest, dann muss die Anpassung weiter oben erfolgen:

Code:

If Sh.Name <> "Tabelle1"  And Sh.Name <> "Tabelle2" Then

läuft in allen Blättern AUSSER den genannten

Code:

If Sh.Name = "Tabelle1" Or Sh.Name = "Tabelle2" Then

läuft NUR in den genannten Blättern

 

Die Minute Wartezeit bei der Rückkehr auf Blatt 1 kann ich mir momentan aus der Ferne nicht erklären.

 

Super, nun habe ich endlich alles in den Griff bekommen.

Nur das zurückgehen auf Tabelle1 bereitet mir noch sorgen. Selbst in der kleinen von dir geschickten tabelle kann man beim zurückgehen auf Tabelle1 erkennen, dass dort etwas geprüft wird (in dem fall sehr schnell).

In meiner tabelle nimmt dies leider noch eine halbe minute ein.

Die Frage ist die sich mir noch stellt, was wird da eigentlich geprüft und wie kann man das umgehen? Gibt es einen Zirkelbezug?

Schönen Gruss!

 

Hallo!

In der Tabelle1 selbst darf/sollte das Makro nicht laufen!
Dieses Blatt musst du (wie beschrieben) ignorieren.

 

Danke für deine Geduld!

Nun läuft alles einwandfrei ohne minutenlanges warten;)

Schönen Abend!!

 

Hallo!

Eine Sache fällt mir bei der Thematik noch auf.

Wenn man in Tabelle 1 keinen bestimmte Filterung vornimmt, wird in Tabelle 2 trotzdem nach einer Filterung (in diesem Fall keine) mit der Tabelle 1 abgeglichen.

Dies kostet jetzt ca. 10 Sekunden. Wenn ich einen Filter gesetzt habe sind die 10 Sekunden für mich ok, jedoch nicht wenn ich keine Filterung vorgenommen habe.

Kann man da vielleicht ein IF in das VBA einbauen? z.B. nur wenn der Filter in Tabelle 1 aktiv eingesetzt wird, suche in Tabelle 2?

Wäre mir ne echt grosse Hilfe!

Gruss, Jochen

 

Hallo!

Ungetestet:

If Sheets("Tabelle1").FilterMode = False Then Exit Sub