Function Werktage(WBeginn, WEnde) As Integer
 
Dim x As Variant, y, z As Integer
 
For x = WBeginn To WEnde
y = WeekDay(x)
If Not ((y = 1 Or y = 7) Or (Feiertag(x) <> "")) Then z = z + 1
Next
Werktage = z
End Function