Autostartmakro am ersten Arbeitstag des Monats

15/02/2012 - 17:11 von Ralf Gläßer | Report spam
Halloli,
ich bitte um Hilfe zu folgendem Sachverhalt.

Bei Öffnen einer Arbeitsmappe soll immer geprüft werden, ob der aktuelle
Tag der erste Arbeitstag (Mo-Fr) eines neuen Monats ist. Ist der erste
Arbeitstag "wahr", dann soll ein Hinweisfenster geöffnet werden.
Bsp.: Im Màrz müsste also am Donnerstag (1.3.) bei Öffnen das
Hinweisfenster kommen.

Wie kann man das realisieren? Bitte wenn möglich mit Code.

Danke schonmal

Ralf
 

Lesen sie die antworten

#1 Díetmar Vollmeíer
15/02/2012 - 21:33 | Warnen spam
Guten Abend Ralf!

*Ralf Glàßer* schrieb am 15.02.2012 um 17:11 Uhr...
Bei Öffnen einer Arbeitsmappe soll immer geprüft werden, ob der aktuelle
Tag der erste Arbeitstag (Mo-Fr) eines neuen Monats ist. Ist der erste
Arbeitstag "wahr", dann soll ein Hinweisfenster geöffnet werden.

Wie kann man das realisieren? Bitte wenn möglich mit Code.



Sollte damit funktionieren

8<>8
If Date = Date - Day(Date) + 3 - WorksheetFunction.Min(2, (Date - Day(Date) + 1) Mod 7) Then
Call MsgBox("Heute ist der erste Arbeitstag im Monat", vbOKOnly + vbInformation, "Info")
End If
8<>8

Danke schonmal



HTH
Servus | Ist eine Gesichtscreme die 20 Jahre jünger macht
Didi | für 19jàhrige lebensgefàhrlich?

Ähnliche fragen