Gruppe
UDF
Bereich
Nettoarbeitstage
Thema
Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack
Problem
Die Funktion NETTOARBEITSTAGE aus dem Analyse-Pack soll als benutzerdefinierte Funktion (UDF) erstellt werden.
Lösung
Über die nachfolgende benutzerdefinierte Funktion. Eingabesyntax: =atage(A1;B1;FreieTage!A1:A4)
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