habe folgendes Problem:
Ich möchte folgendes Datum berechnen:
Eingabedatum + Anzahl Werktage = Enddatum (ohne Sonn- u. Feiertage)
Die Funktion Nettoarbeitstage oder Arbeitstage liefern nicht das richtige Ergebnis.
Wer kann mir weiterhelfen ?
Function WerktageAdd(Datum As Date, WerkTage As Long, FreieTage As Excel.Range) As Date
Dim FreiTag As Range
Dim Istfrei As Boolean
Do While WerkTage > 0
Datum = Datum + 1
Istfrei = False
For Each FreiTag In FreieTage
If Datum = FreiTag.Value Then
Istfrei = True
Exit For
End If
Next FreiTag
If WeekDay(Datum, vbMonday)
Die Feiertage und sonstige freie Tage (Rosenmontag, etc.) musst du in eine Hilfsspalte schreiben (die sind ja von Region zu Region unterschiedlich) und dann bei der Funktion berücksichtigen.
Gruß
Sigi