Arbeitstage dazu addieren
29.05.2017 17:33:40
Christian
vor einiger Zeit habe ich das Thema hier schon mal gepostet, leider finde ich den alten Thread nicht mehr aber es hat sich bei dieser Sache auch viel getan bei mir.
Ich habe im Netz eine Funktion zum Thema Arbeitstage auf ein Datum addieren gefunden und verzweifel jetzt aber bei der Anpassung an mein Modell. Anbei eine Beispieldatei die das ganze veranschaulicht.
https://www.herber.de/bbs/user/113868.xlsm
Public Function getEndeDatum(ByVal startDatum As Date, ByVal Arbeitstage As Integer) As Date
Dim anz As Integer
While True
startDatum = DateAdd("d", 1, startDatum)
If Weekday(startDatum, vbMonday) ""
If Datum = Sheets("Fabrikkalender").Cells(z, 2).Value Then
isFeiertag = True
Exit Function
End If
z = z + 1
Wend
isFeiertag = False
End Function
Viele Grüße und danke für eure Bemühungen
Christian