Fehlendes Datum finden

Hallo.

Ich möchte in der Reihe B (siehe Anhang) ab der Zeile 12 (Anzahl der Datumszeilen kann nach unten variieren) das Datum finden, das in dieser Woche fehlt. In diesem Fall ist es der Freitag, 09.11.20007.
Und dann eine Mitteilung bekommen wie: MsgBox " Freitag, 09.11.20007 nicht vorhanden" Der Datumssuchbereich umfaßt immer die aktuelle Kalender-Woche (hier die 45 KW).

Beste Grüße, Andreas

PS: Das VBA-Makro wird/sollte dann jeweils von Montag bis Freitag der aktuellen Kalender-Woche ausgelöst werden.

http://www.file-upload.net/view-484903/Datum.jpg.html

Ich möchte in der Reihe B (siehe Anhang) ab der Zeile 12
(Anzahl der Datumszeilen kann nach unten variieren) das Datum
finden, das in dieser Woche fehlt. In diesem Fall ist es der
Freitag, 09.11.20007.
Und dann eine Mitteilung bekommen wie: MsgBox " Freitag,
09.11.20007 nicht vorhanden" Der Datumssuchbereich umfaßt
immer die aktuelle Kalender-Woche (hier die 45 KW).

Hi Andreas,

steht das immer in B ab Zeile 12 ?
Du weißt das die Excel-Funktion „kalenderwoche“ in manchen Jahren falsch rechnet?

PS: Das VBA-Makro wird/sollte dann jeweils von Montag bis
Freitag der aktuellen Kalender-Woche ausgelöst werden.

Was meinst du mit „ausgelöst werden“, es gibt in Vba Ereignismakros, die durch ein Ereignis „ausgelöst“ werden, irgendwie meinst du das nicht!?

Konkret, wie willst du das Makro starten und ihm mitteilen wo die Daten stehen?

Gruß
Reinhard

http://www.file-upload.net/view-484903/Datum.jpg.html

Hallo Reinhard.

Danke für die schnelle Antwort. Das Problem ist mittlerweile gelöst.
Das Makro wird über ein VBA-Formular ausgelöst. Und mit der aktuellen Kalender-Woche ist nur die Woche gemeint, in der ich gerade bin. Also Morgen = 46 KW.

Gruß, Andreas

Eine Frage habe ich doch noch:

Wie bekomme ich eine ProgressBar zum laufen?

  • Wenn ich in meiner Form auf einen Button klicke
    laufen sechs Makros nacheinander ab. Laufzeit ca. 5 sec.
  • die ProgressBar soll diese Zeit angezeigt werden (laufen); bis die Form wieder geschlossen wird.