Hallo,

ich möchte gerne für einige Datenaufnahmen die Ablaufzeit abfragen und dies dem Nutzer signalisieren.

Leider werden dafür vermutlich Schleifen benötigt und da hören meine Kenntnisse allmählich auf.

Ich habe bereits mit einem Abfrageskript begonnen.

100 % laufen tut es noch nicht.

Anbei der Link zu meiner Beispieldatei. (Excel 2010)

Folgendes Szenario soll in einem Excel-VBA-Skript realisiert werden:

• Das Datum („Date“) in Spalte A soll mit dem aktuellen Tagesdatum verglichen werden. Wenn die Differenz zum Tagesdatum nur noch 4 Tage beträgt, soll der jeweilige CommandButton in der Spalte „warning“ rot blinken.

• Er soll solange rot blinken, bis das jeweilige Kästchen (CheckBox) in der Spalte „OK“ angehakt wurde. Dann soll der CommandButton konstant grün erscheinen.

• Wenn die Zeit überschritten wurde (Datum – Tagesdatum < 0) dann soll der Button erst einmal konstant rot erscheinen – es sei denn, man hakt die CheckBox (im Nachhinein – also nach Zeitablauf) an. In dem Fall soll der Button wieder grün werden.

• Von dem gezeigten Tabellenblatt gibt es mehrere (Tabelle2, Tabelle3,...) in einem Excel-Dokument mit unterschiedlich langen Daten („Date“).
  Manche erstrecken sich bis zur Zelle A39.

• Für alle Tabellenblätter soll das Skript gleichzeitig laufen.

• Der jeweils gerade blinkende CommandButton aus dem jeweiligen Tabellenblatt soll in einer Hauptübersicht (extra Tabellenblatt) desselben Excel-Dokuments nochmals verlinkt werden.

• Schön wäre es, wenn dort (in der Hauptübersicht) dann auch das dazugehörige Datum („Date“ aus Spalte A) auf den dortigen CommandButton projeziert wird.

Könnt ihr mir weiterhelfen?

Falls ihr weitere Fragen habt, beantworte ich sie gerne!

Vielen Dank vorweg für Eure Hilfe! :-)

Viele Grüße!

Martin