Berechnungsfunktion
23.05.2007 08:58:00
Eleni
Habe ein Makro programmiert, in das eine Excel-Funktion implementiert ist. Diese soll die Nettoarbeitstage zwischen zwei Datumsangaben berechnen:
If Range("H" & i) = "" And IsDate(Range("I" & i)) Then
Range("J" & i).FormulaR1C1 = "=(NETTOARBEITSTAGE(R4C[-3],RC[-1]))-1"
End If
Funktionierte ein paar Wochen auch soweit ganz gut, nun bekomme ich aber einen Fehler angezeigt. Die Fehlerrecherche zeigt, dass die "Nettoarbeitstage"-Funktion dem Programm unbekannt ist. Wie kann das sein? Ist es möglich, dass die IT-Abteilung etwas im Hintergrund verändert hat, was dies verursachen könnte? Ich habe während der Programmierung die Funktion bei Excel durch Suchen gefunden, habe sie mir also nicht selbst ausgedacht. Weiß jemand wie ich die Funktion evtl. umgehen könnte, z.B. einen Befehl, mit dem das Makro auf einen Outlook-Kalender zugreift und entsprechend der dort eingetragenen Wochenenden und Feiertage die Arbeitstage berechenn kann? Bin für weitere Lösungsvorschläge offen.
Vielen Dank im Voraus.
Ciao, Eleni