Excel 2007 - Popup-Fenster beim Start mit Angabe aller Zellen einer Spalte, welche einen bestimmten Wert oder Zustand haben

Hallo,
ich kämpfe seit einigen Tagen mit einem Excel-Problem.

Meine Arbeitsmappe ist so aufgebaut:


Die Zellen in der Zweiten Spalte werden entsprechend der seit dem Versanddatum vergangenen Frist eingefärbt.
Sind noch keine 14 Tage vergangen wird z.B. die Zelle B2 grün formatiert.
Ab 14 Tagen bis 27 Tagen geht sie auf gelb.
Ab dem 28. Tag geht sie auf rot.

Ich habe ich dies über eine bedingte Formatierung realisiert (hier als Beispiel für grün):


Da es dabei um sehr viele Daten geht soll dies der Übersicht dienen, was man im Auge behalten muss (gelb) und wo sofort eine Reaktion erforderlich ist (rot). Bei grün ist alles noch easy.

Ich würde aber gerne beim Start der Arbeitsmappe ein Popup-Fenster haben, welches mir alle Zeilen (getrennt in Rubriken nach gelb und rot) auflistet, die die Bedingungen erfüllen. Das soll mir gleich beim Start der Arbeitsmappe einen Überblick verschaffen wo eventuell eine Aktion notwendig ist. Dabei würden mir die Ausgabe von zwei Zellen reichen (z.B. A1 und D1). Die Sortierung der Zeilen könnte man natürlich in dem Fall auch verändern, so dass die roten zuerst, dann die gelben und dann die grünen kommen. Dies möchte ich aus Gründen der Übersicht aber nicht; es soll alles weiterhin nach dem Datum sortiert werden.

Vielleicht wäre es dann zur Bearbeitung auch noch hilfreich, wenn beim Start die Zeilen mit gelb bzw. rot jeweils in eine neue Tabelle dieser Arbeitmappe kopiert würden zum Abarbeiten. Ich denke, das dürfte dann aber weniger das Problem darstellen wenn der erste Teil erst einmal funktioniert.

Hat vielleicht jemand schon mal so etwas ähnliches realisiert? Wäre wirklich Klasse !!!

Danke schon mal im voraus !!!

Torsten

Public Function Frist(Datum As Date) As Boolean
     If DateSerial(Year(Datum) + 14, Month(Datum), Day(Datum)) > Date Then
        MsgBox "Schon mindestens 14 Tage her!"  
     If DateSerial(Year(Datum) + 28, Month(Datum), Day(Datum)) > Date Then
        MsgBox "Schon mindestens 28 Tage her!"  
    End If
End Function