AW: Differenz zwischen 2 Tagen in WERKtagen
nils
hi falls du die
Function nicht geladen hast( nettoarbeitstage meine ich)
schreibe dir doch selber eine in ein modul deiner arbeitsmappe
danach dann nur noch =nettotage(....in eine zelle schreiben
ab hier in ein modul deiner arbeitsmappe kopieren:
Option Explicit
Public
Function nettotage(startdatum As Date, enddatum As Date) As Double
Dim tage As Double
Dim x As Long
tage = DateDiff("D", startdatum, enddatum, vbMonday, vbFirstFourDays)
For x = CLng(startdatum) To CLng(enddatum)
If Weekday(CDate(x), vbMonday) > 5 Then tage = tage - 1
Next x
nettotage = tage
End Function