Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack

Gruppe

Nettoarbeitstage

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