ich komme nicht weiter mit meiner Function. Ich möchte bestimmte Wochentage
zählen (Mo - Do, deshalb kein Nettoarbeitstage), habe mir dafür eine Funktion gebastelt. Funktioniert auch. Zusätzlich möchte ich aber die Feiertage abziehen, die auf einen Mo - Do fallen. Für einen Feiertag bekomme ich das auch hin (erster If-Befehl), allerdings gibt es ja mehrere Feiertage im Jahr. Da komme ich nicht weiter. Hat jemand eine Lösung?
Den Code findet ihr unten.
Heiko
Function Wochentage(DatBeginn, DatEnde, WTag1 As Integer, WTag2 As Integer, _
WTag3 As Integer, WTag4 As Integer)
Dim datFirst As Date, datLast As Date
Dim iCount As Integer
Dim lDay As Long
datFirst = DatBeginn
datLast = DatEnde
st = DatEnde
For lDay = datFirst To datLast
If lDay = Worksheets("FTage").Cells(7, 2) Then
GoTo 10
Else
If Weekday(lDay) = WTag1 Then
iCount = iCount + 1
Else
If Weekday(lDay) = WTag2 Then
iCount = iCount + 1
Else
If Weekday(lDay) = WTag3 Then
iCount = iCount + 1
Else
If Weekday(lDay) = WTag4 Then
iCount = iCount + 1
End If
End If
End If
End If
End If
10 Next lDay
Wochentage = iCount
End Function