Funktion ähnlich Nettoarbeitstage gesucht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Der Code gehört in ein Modul deiner Arbeitsmappe

Option Explicit
Function myPrivateNetworkDays(myStart As Range, myEnd As Range, Optional freedays As Range) As Long
On Error GoTo myErrorHandler
Dim i As Long, n As Long, DayChk As Boolean
Dim myNetDays As Long, myF As Variant
Dim myC As Range
myNetDays = 0
n = 0
DayChk = False
For i = myStart To myEnd
    If Weekday(Format(myStart + n, "dd.mm.yyyy"), vbMonday) < 6 Then
        'On Error Resume Next
        For Each myC In freedays
            If myC.Value = myStart + n Then
                DayChk = True
                Exit For
            End If
        Next
Weiter:
        Err.Clear
        If DayChk = False Then
            myNetDays = myNetDays + 1
        End If
        DayChk = False
    End If
    n = n + 1
Next i
ErrExit:
myPrivateNetworkDays = myNetDays
Exit Function
myErrorHandler:
Select Case Err.Number
    Case 424 'Kein Feiertagsbereich
        Resume Weiter
    Case Else
        MsgBox Err.Number & ": " & Err.Description
        Resume ErrExit
End Select
End Function

Code eingefügt mit Syntaxhighlighter 2.5

Aufgerufen wird die Funktion so:

Function Arbeitstage(AnfDatum As Date, EndDatum As Date, _ FreieTage As Excel.Range) As Long Dim Datum As Date Dim Tage As Long Dim Istfrei As Boolean Dim FreiTag As Range If AnfDatum <= EndDatum Then For Datum = AnfDatum To EndDatum Istfrei = False If Weekday(Datum, vbMonday) < 6 Then For Each FreiTag In FreieTage If Datum = FreiTag.Value Then Istfrei = True Exit For End If Next FreiTag If Not Istfrei Then Tage = Tage + 1 End If End If Next Datum Else Tage = "" End If Arbeitstage = Tage End Function

Function Arbeitstage(AnfDatum As Date, EndDatum As Date) As Long Dim Datum As Date Dim Tage As Long If AnfDatum <= EndDatum Then For Datum = AnfDatum To EndDatum If Weekday(Datum, vbMonday) < 6 Then Tage = Tage + 1 End If Next Datum Else Tage = "" End If Arbeitstage = Tage End Function

Hallo Jochen,
in A1: Datum1 (z.B.: 1.1.2004)
in A2: Datum2 (z.B.: 31.1.2004)
bei 5 Arbeitstagen je Woche ohne Berücksichtigung der Feiertage können jetzt die Nettoarbeitstage wie folgt ermittelt werden:
=A2+1-A1-DM((WOCHENTAG(A1;2)+A2-A1-3)/7;)-DM((WOCHENTAG(A1;1)+A2-A1-3)/7;)
bei 6 Arbeitstagen je Woche:
=A2+1-A1-DM((WOCHENTAG(A1;2)+A2-A1-3)/7;)
Erklärung:
A2+1-A1: Anzahl der Tage zwischen A1 und A2
DM((WOCHENTAG(A1;2)+A2-A1-3)/7;)
WOCHENTAG(A1;2) : ermittelt den Wochentag des Datums in A1,
+A2-A1 : addiert die Anzahl der Tage zwischen den beiden Datumsangaben
-3 : damit die Funktion DM richtig rundet
/7 : Anzahl der Tage in 1 Woche ( hier Anzahl der Sonntage im Zeitraum)
;) : sagt der Funktion DM dass auf 0 Nachkommastellen gerundet werden soll
Na ja, und die andere Formel zieht zusätzlich noch die Anzahl der Feiertage im Zeitraum ab, sofern diese nicht auf das Wochenende (Sa/So) fallen.
Sollen auch Feiertage, die auf einen Samstag fallen abgezogen bzw. Samstage als Arbeitstage gezählt werden, muss nur <6 durch < 7 ersetzt werden!
(Achtung: Arrayformel - Eingabe ohne "{" bzw. "}" aber mit STRG+UMSCHALT+EINGABE abschliessen!!!)
Alles klar?
Servus aus dem Salzkammergut
Franz

Beliebteste Forumthreads (12 Monate)

Funktion ähnlich Nettoarbeitstage gesucht

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread