ich habe folgendes Problem:
Eine selbst erstellte Funktion namens ARBEITSTAGE soll ermitteln wieviele Arbeitstage eine bestimmte Woche hat. In einem Tabellenblatt wurden dazu bereits die Feiertage, der Wochentag (1 fuer Montag, etc.) und die zugehoerige Kalenderwochen eingetragen. Die Wochentage stehen im Bereich D6:D15, die Kalenderwochen stehen im Bereich C6:C15. Die Funktion, die ich programmiert habe sieht nun wie folgt aus:
Public
Function ARBEITSTAGE(Woche as Integer) As Integer
Dim Werktage(1 to 53)
For i = 1 To 53
Werktage(i) = 5 'Standardeinstellung: jede Woche hat 5 Werktage
Next i
For c = 6 to 15 'Wenn Feiertag ein Werktag ist, dann gibt es einen Werktag weniger
If cells(c,4).Value = 6 or Cells(c,3).Value = 7 Then
Werktage(Worksheets("Konfiguration".Cells(c,3).Value) = _
Werktage(Worksheets("Konfiguration").Cells(c,3).Value
Else
Werktage(Worksheets("Konfiguration".Cells(c,3).Value) = _
Werktage(Worksheets("Konfiguration").Cells(c,3).Value - 1
End if
Next c
ARBEITSTAGE = Werktage(Woche)
End Function
Wenn ich diese Funktion nun in eine Formel in Excel einbaue (also z.B. =SUMME(A1:A5)/ARBEITSTAGE(1), dann erhalte ich die Fehlermeldung #WERT.
Hat jemand eine Idee woran das liegen koennte?
Vielen Dank fuer eure Hilfe.
Gruss
Andreas