Funktion NetworkDay arbeitet nicht
Thomas
Ich stehe vor einem Rätzel und komme nicht weiter voran.
Ich möchte in einen Urlaubsplan die Nettoarbeitstage berechnen, unter Berücksichtigung der Feiertage.
Dazu ist folgende Function hinterlegt:
Private Function fncNettoArbeitstage(ByVal datVon As Date, ByVal datBis As Date) As Long
'Berechnung der Nettoarbeitstage aus Start- und Ende-Datum
fncNettoArbeitstage = Application.NetworkDays(datVon, datBis, Sheets("Tabelle1").Range("B2: _
B15"))
End Function
Zuhause im Testlauf auf Excel2007 funktioniert es einwandfrei. Jedoch in meiner Arbeit unter Excel2003
bekomme ich folgende Meldung:
"Laufzeitfehler 438". Objekt unterstützt diese Eigenschaft oder Methode nicht.
Vermutlich ein Problem mit "NetworkDays"
Unter verfügbare Ad-Ins sind alle Funktionen aktiviert, auch Analyse-Funktion.
Darauf hat mich Christian aufmerksam gemacht. Der Haken ist hier gesetzt.
In den Verweisen steht der Haken bei:
- Visual Basic for Application
- Microsoft Excel 11.0 Objekt Library
- OLE Automation
- Microsoft Office 11.0 Objekt Library
- Microsoft Forms 2.0 Objekt Library
Ich weiß keinen Rat mehr.
Kann mir bitte wer weiterhelfen?
Franz möchte ich bei der Verbesserung des Urlaubsplans nochmal extra für seine tatkräftige Hilfe danken, ohne deren Hilfe ich kläglich gescheitet wäre!!!!!
Danke
Thomas