MOnatsende Makro ausführen

Bild

Betrifft: MOnatsende Makro ausführen
von: Holger
Geschrieben am: 29.11.2015 18:56:23

Hallo
Ich habe ein Problem und bekomme das einfach nicht hin
1. Ich möchte gerne, dass ein Makro immer am Monatsende ausgeführt werden soll.
2. wenn der Monatsende ein Samstag oder ein Sonntag ist, dann soll das Makro schon am Freitag vor dem Monatsend ausgeführt werden
Bsp.
31.01.2016 ist ein Sonntag, also soll das Makro am Freitag dem 29.01.2016 ausgeführt werden.
Kann mir irgendjemand dabei helfen?
PS: das Makro soll beim Öffnen Starten
Danke
Holger

Bild

Betrifft: AW: MOnatsende Makro ausführen
von: Sepp
Geschrieben am: 29.11.2015 19:08:30
Hallo Holger,

Sub AmLetztenArbeitstag()
Dim datLastDay As Date

datLastDay = DateSerial(Year(Date), Month(Date) + 1, 0)

If Weekday(datLastDay, vbSaturday) < 3 Then
  datLastDay = datLastDay - Weekday(datLastDay, vbSaturday)
End If

If Date = datLastDay Then
  'dein Code
End If

End Sub

Aber was, wenn der Freitag ein Feiertag ist?
Gruß Sepp


Bild

Betrifft: AW: MOnatsende Makro ausführen
von: Holger
Geschrieben am: 29.11.2015 19:22:38
Hey Sepp
Danke für deine Antwort -- werde es dann ausprobieren
Wegen den Feiertag habe ich mir noch gar keine Gedanken gemacht bzw überhaupt daran gedacht
Grüße
Holger

 Bild

Beiträge aus den Excel-Beispielen zum Thema "MOnatsende Makro ausführen"