Durchsuchen einer gesamten Arbeitsmappe

[schadre]

Hallo an alle. 
Ich brauche mal wieder Eure Hilfe.
Hab natürlich schon alles mögliche gesucht, aber ich finde keine Lösung. Daher hoffe ich, wie schon häufiger, dass Ihr mir helfen könnt.
Ich habe eine Arbeitsmappe mit 10 Tabellenblättern, in der ich Zellen über die bedingte Formatierung rot färbe der Datumsangaben abgelaufen, also in der Vergangenheit liegen.
Jetzt möchte ich das Excel mir alle Zeilen in den rot eingefärbte Zellen sind in einem extra Tabellenblatt ( in meinem Beispiel "Abgelaufen") auflistet.
Ist das möglich????
Ich habe eine Beispieldatei angehängt. Diese besteht nur aus 3 Tabellenblättern und dem besagten Blatt "Abgelaufen" aber ich hoffe es ist verständlich was ich brauche..

Vielen Dank für eure Hilfe

[shift-del]

Hallo schadre

Hier die Antwort, die dir vermutlich nicht gefällt.
Kopiere alle Daten in ein Tabellenblatt mit einer zusätzlichen Spalte "Ort".
Für die Prüfung benötigst du noch eine Hilfsspalte mit der Formel:

Code:

=ZÄHLENWENN(D2:E2;"<"&HEUTE())>0

Jetzt kannst du nach dieser Hilfsspalte auf WAHR filtern.

[RPP63]

Moin!
Wie so häufig:
Warum verschiedene Tabellen für die Standorte und nicht alles in eine mit der Zusatzspalte Standort?
Dann kann man bequem nach Farbe filtern.

Gruß Ralf

[schadre]

Erst einmal danke dafür das ihr euch meinem Problem annehmt. 
Hatte wohl nicht weit genug ausgeholt.
Die Tabelle die ich angehängt habe ist nur eine Beispiel. Die Originaldatei hat 10 Tabellenblätter mit jeweils ca. 300 - 400 Einträgen (Zeilen).
Ich benutze die Bedingte Formatierung um "abgelaufene " Einträge zu kennzeichnen und Fehler zu korrigieren. (In meinem Beispiel rote Zellen)
Die Einträge in der Datei ändern sich täglich mehrfach. So wäre es sehr aufwendig täglich die Datei in ein Blatt zusamen zufassen und mit einer Hilfsspalte zu versehen und dann zu filtern.
Ich hatte gehofft, dass es eine Möglichkeit gibt die eingefärbten, und somit abgelaufenen Einträge in einem Blatt zusamen zufassen.
So könnte ich eine Fehlerbereinigung schneller durchführen.

Hoffe mein Anliegen ist jetzt verständlicher und nachvollziehbarer.

[RPP63]

Moin!

Die Originaldatei hat 10 Tabellenblätter mit jeweils ca. 300 - 400 Einträgen (Zeilen).

Was spricht dagegen, daraus ein Tabellenblatt zu machen, wie wir beide es vorschlugen?

So wäre es sehr aufwendig täglich die Datei in ein Blatt zusamen zufassen und mit einer Hilfsspalte zu versehen und dann zu filtern.

Nein, Du sollst das nicht täglich neu machen, sondern ab sofort nur ein Blatt führen.
Auswertungen dann per Filter, Pivottabelle oder ähnlichem.

Hoffe mein Anliegen ist jetzt verständlicher und nachvollziehbarer.

Das war  es auch bereits vorher. ;)
Tabellenblätter in Excel sind nunmal keine 3D-Arrays.

Gruß Ralf

[schadre]

Moin!
Was spricht dagegen, daraus ein Tabellenblatt zu machen, wie wir beide es vorschlugen?

Nein, Du sollst das nicht täglich neu machen, sondern ab sofort nur ein Blatt führen.
Auswertungen dann per Filter, Pivottabelle oder ähnlichem.

Das mit dem einem Tabellenblatt funktioniert aus betriebsinternen Gründen leider nicht. Den Aufbau muss ich leider so lassen

Das war  es auch bereits vorher. [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Tabellenblätter in Excel sind nunmal keine 3D-Arrays.

Juhuu ich habe mich verständlich ausgedrückt. Das rettet meinen Sonntag

[shift-del]

Das mit dem einem Tabellenblatt funktioniert aus betriebsinternen Gründen leider nicht. Den Aufbau muss ich leider so lassen

Wenn ich jetzt eine Formellösung hätte die allerdings die Performance drückt, auf was könntest du eher verzichten: Performance oder betriebsinterne Gründe?

[Kuwer]

Hallo schadre,

Vorschlag mit per VBA-gesteuertem Spezialfilter.
Folgender Code kommt in das schon vorhandene VBA-Modul der Auswertetabelle (hier Abgelaufen):

Private Sub Worksheet_Activate()

 Dim oWs As Worksheet, rngZ As Range

 Range("D2,E3").Value = "<" & CLng(Date)

 Set rngZ = Range("A6:E6")

 rngZ.CurrentRegion.Offset(1) = ""

 For Each oWs In Worksheets

   If oWs.Name <> Me.Name Then

     If oWs.Cells(1).CurrentRegion.Rows.Count > 1 Then

       oWs.Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _

         CriteriaRange:=Range("D1:E3"), CopyToRange:=rngZ, Unique:=False

       rngZ.Delete xlUp

       Set rngZ = Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5)

     End If

   End If

 Next oWs

End Sub

Bei jedem Aktivieren dieses Blattes wird die Tabelle neu aufgebaut.

Gruß Uwe

[schadre]

Kuwer Wahnsinn..............
In der Beispieldatei funktioniert das spitzenmäßig.
Genauso wollte ich es haben.
Hatte versuch das für meine Arbeitsmappe abzuändern. Leider ohne Erfolg.
In meiner Originaldatei habe ich den Bereich in den Daten stehen von A1 bis N600.
In jeder dieser Zellen könnte ein Fehler ( also rot eingefärbt) auftauchen.
Hatte nun versucht diese Daten in deinem Macro abzuändern, leider erfolglos ( :59: :59: :59: :59: :59: :59: )
Könntest du mir dabei helfen  :05:

[schadre]

Wenn ich jetzt eine Formellösung hätte die allerdings die Performance drückt, auf was könntest du eher verzichten: Performance oder betriebsinterne Gründe?

Aus den besagten Gründen MUSS ich auf Performance verzichten