Office: Nettoarbeitstage in vba

Hallo zusammen,

ich hab jetzt schon das Forum durchkämmt, aber leider nichts passendes gefunden.

Ich möchte ganz einfach in vba die Nettoarbeitstage zwischen zwei Daten berechnen. Der Code:

Code:

übergibt der Zelle A1 nur die Formel. Ich will aber erreichen, das ich in vba den Wert zur Verfügung habe um damit weiterzurechnen.

Bin gerade soweit:

Code:

Aber dort wird mir eine Fehlermeldung beim ausführen des Makros, dass die Funktion nicht definiert sei?!?!

Kann mir jemand helfen??

Danke schon mal.

MFG
semmel

:)

 

Und welche Version von Excel nutzt du?

Wenn 2007: Code:

 

Hi,

danke erst mal für deine Antwort.
Ich nutze Excel 2003!

bei deinem Code kommt jetzt die Meldung:

Laufzeitfehler '438':
Object unterstützt diese Eigenschaft oder Methode nicht.

???

MFG
semmel

 

Deswegen die Frage nach deiner Excelversion. Nach meinen Kenntnissen gibt es die Funktion NETTOARBEITSTAGE erst ab der Version 2007.

Aber wie es der Zufall so will, habe ich mich am Wochenende auch darüber geärgert, das mein 2003 sowas nicht kann und habe es mal selbst nach geschrieben. Falls du irgendwelche Fehler findest, dann bitte Rückmeldung!

Gruß
rastrans

 

Hi,

danke für deine Hilfe.
In dem zip File ist eine .bas Datei!

Was ist das? Wie kann ich die öffnen??

MFG
semmel

 

Hallo Semmel,

hinter der Datei versteckt sich ein VBA-Modul. Das kannst du im VBA-Editor über Menü Datei | Datei importieren... laden.

Gruß Ingolf

 

Hallo nochmal,

hab noch eine letzte Frage.

Und zwar schaffe ich es nicht ganz (ohne Fehler) diese Function aufzurufen *frown.gif*

Ich versuche es gerade über ein Makro mit:

Code:

In A1 steht 21.04.2008 und B1 24.04.2008

aber mir wird ein Fehler zurückgegeben: Argumenttyp ByRef unverträglich

Was heißt das? oder was mache ich falsch?

Danke schon mal.

MFG
semmel

 

Das hat nun nichts mit meinem Modul zu tun! *wink.gif*

Die folgende Funktion funktioniert. Die Fehler von deinem Modul habe ich markiert! Code:

Dim x, y as Date deklariert y als Datumswert, aber x als Variant!

Als Eingangsparameter von Nettoarbeitstage werden Datumswerte erwartet. Range gibt ein Range-Objekt zurück. Von der Zelle (Range) musst du schon den Wert nehmen.

Viele grüße
rastrans

 

Cooooooool!

Danke dir. Hast mir enorm weitergeholfen *grins

 

Moin, semmel13,

das Analyse-AddIn einbinden, dann gibt es auch unter Excel2003 und früher die Funktion Nettarbeitstage...

 

thx jinx... wieder etwas dazugelernt!

Nicht nur, das ich nun weiss, wie ich jetzt diese Funktion einbinden kann. Schliesslich habe ich noch eine Weile damit zugebracht das Modul zu schreiben. Und dabei lernt man ja auch!