Thema: Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack

StandardModule: Modul1

Function ATage(datStart As Date, datEnd As Date, rng As Range)
   Dim var As Variant
   Dim lDay As Long, lCount As Long
   For lDay = datStart To datEnd
      If WorksheetFunction.Weekday(lDay, 2) < 6 Then
         var = Application.Match(lDay, rng, 0)
         If IsError(var) Then
            lCount = lCount + 1
         End If
      End If
   Next lDay
   ATage = lCount
End Function

Beiträge aus dem Excel-Forum zu den Themen UDF und Nettoarbeitstage