title image


Smiley Re: Monatsende
Hallo,

falls dich vba nicht stört könnte das so gehen (ohne Feiertage):





Sub letzten_Werktag_ermitteln()

'letzten Werktag im Monat ermitteln

Dim d As Date  

Dim i As Long  



d = Now



'letzte Tag im Monat

d = DateSerial(Year(d), Month(d) + 1, 0)



For i = 1 To 3  

   'prüfen ob letzte Tag im Monat Sa/So

    If Weekday(d) = 1 Or Weekday(d) = 7 Then  

       'wenn ja, ein Tag davor

        d = DateSerial(Year(d), Month(d) + 1, 0) - i

    Else

        Exit For  

    End If  

Next i



MsgBox d & " " & Format(Weekday(d), "dddd"), , "letzter Werktag ist"



End Sub  





Um das anzupassen, müßtest Du noch den Aufbau der Datenbank erklären...

Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: