Office: Mit Makro mehrere Tabellen filtern und in Übersichtstabelle kopieren

Hallo liebe Forums-User,

ich habe ein Problem in Excel, welches ich scheinbar nur sinnvoll mit einem Makro lösen kann, jedoch reichen meine Excel-Kentnisse nicht soweit, daher hoffe ich ihr könnt mir helfen :-)

Ausgangssituation: Eine Arbeitsmappe mit ca. 20 Tabellenblätter. 12 Tabellenblätter davon sind Checklisten mit Aufgaben. Diese Tabellenblätter sind identisch aufgebaut und unterscheiden sich nur vom Inhalt. Jedoch sind sie unterschiedlich lang, da manche Tabellen nur 10 Aufgaben haben, manche 50. Diese Aufgaben haben einen Status, in der Spalte F der entweder Rot, Grün oder Gelb sein kann.

Ziel ist es jetzt ein Tabellenblatt "Übersicht" zu haben, in welches alle aufgaben aus den 12 Checklisten kopiert werden, deren Status Gelb oder Rot ist.

Hat hierzu jemand eine Idee? Für Hilfe wäre ich sehr dankbar :-)

Viele Grüße,

Daniel

 

Im Anhang ist mal ein erster Ansatz, der weitestgehend in die Richtung gehen dürfte. Da ich aber keinen genauen Tabellenaufbau von Dir habe, ist da wahrscheinlich noch einiges an Nacharbeit notwendig.

Das Ding arbeitet vom Blatt "Auswertung" aus mit einigen Parametern:
a) In Zelle A2 steht der Name des Blatts, auf dem die Zusammenfassung gebildet werden soll (hier: "Übersicht").
b) Ab Zelle A5 abwärts stehen die Namen der Blätter, auf denen die einzelnen Datensätze zu finden sind.
c) Die Zusammenfassung wird mit dem Button erstellt.

Die Routine nimmt sich der Reihe nach alle Blätter vor und fängt in Zelle A2 an (ich gehe von einer Überschrift in Zeile 1 aus), die Liste abwärts durchzuklötern. Die erste leere Zelle in Spalte A markiert dabei das Ende der Liste.

Wird in Spalte F der abgearbeiteten Zeile das Wort "Gelb" oder "Rot" gefunden, wird die Zeile komplett auf das Blatt "Übersicht kopiert.

In der Routine werden Objekte für die Blätter benutzt, um die Sache etwas übersichtlicher zu machen:
a) s1 zeigt auf das Blatt "Auswertung".
b) s2 zeigt auf das Blatt mit der Zusammenfassung, also z.B. "Übersicht".
c) s3 zeigt auf das jeweils abgearbeitete einzelne Blatt, also hier "Check (1)" bis "Check (5)".

Die y1, y2 und y3 verwalten die jeweils aktuelle Zeile auf den entsprechenden Blättern.

Bei Fragen einfach wieder melden...

Gruß, Michael

 

Hallo Michael,

vielen Dank für dein Beispiel, ich werde es mir gleich mal anschauen und versuchen einzubauen.

Danke,

Daniel