Networkdays berechnen mit Makro

Hallo Leute,
hab folgendes Problem:
Tabelle mit 3 Worksheets: "Admin" "Daten" und "Auswertung"
In "Admin" gibt es in Spalte B Projektnummern - können auch doppelt vorkommen
Spalte C und D beinhalten jeweils im ersten Vorkommen (wenn mehrfache Projektnummer) ein Datum
------------------------------
|Projektnummer|Anfang|Ende|
|123456|01.01.2006|01.02.2006|
|777777|02.01.2006|06.07.2006|
|114773|01.01.2006|01.02.2006|
|123456| | |
.
.
.
------------------------------
in Daten werden alle Projektnummern ausgelsen (Jeweils hier nur einmal vorhanden).
nun habe ich vor mit der methode Worksheets("Admin").Range("B:B").Find(#Projektnummer#).Row mir die erste reihe des vorkommen der projektnummer ausgeben zu lassen und dann aus der jeweiligen datumkombination die arbeitstage berechnen zu lassen.
ich habs schon mit FormulaR1C1 probier aber das haut nicht hin
"objekt unterstützt die methode nicht!" :-(
Code sieht zwischendurch so aus:
Worksheets("Admin").Range("B:B").Find(Worksheets("Auswertung").Cells (Y,1)).Row
dies ist in der schleife drin die die daten zusamenkopiert.
mein erstes problem ist, dass es in der admin tabelle die projektnummern mehrfach gibt und ich eigentlich immer nur das erste vorkommenbrauch
zweitens dass ich die *.FormulaR1C1 = "=NETWORDAYS(#DATUM1#;#DATUM2#)" gern berechnen will aber excel dabei rumzickt.
hat wer ne idee?
vielen dank leute

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Micha,
die Funktion "Nettoarbeitstage" ist als VBA-WorksheetFunction nicht verfügbar. Die nachfolgende Funktion "NetArbTage" bildet diese nach, wobei allerdings nur die Wochenenden (Samstag+Sonntag) herausgerechnet werden. Feiertage könnten einbezogen werden, indem diese (für das betreffende Jahr / die betreffenden Jahre) in einem dafür bestimmten Bereich eines Tabellenblattes angelistet, in einem optionalen Datenfeld an die Funktion übergeben und in einer weiteren If-Abfrage innerhalb der Do...Loop-Schleife gegengeprüft werden.
Das Makro "test" sucht in der Tabelle eine Projektnummer, die über eine Inputbox abgefragt wurde, übergibt die zugehörigen Datumsangaben an die Funktion NetArbTage und schreibt das Ergebnis in die Zelle D2 neben der Tabelle. Mit dem nachfolgenden Beispiel hat das bei mir funktioniert. Das Makro "test" ist allerdings nur ein Anwendungsbeispiel ohne jede Fehlerbehandlung. Falsche Angaben in der Inputbox und/oder falsche Daten(formate) in der Tabelle werden nicht abgefangen und führen daher zu einem Laufzeitfehler.

	A	B	C	D
1	Projektnummer	Anfang	Ende
2	123456	06.02.2007	01.03.2007	18
3	234345	11.02.2007	04.03.2007
4	432345	16.02.2007	08.03.2007
5	123456	21.02.2007	13.03.2007
6	341543	26.02.2007	19.03.2007

Sub test()
Dim rng As Range
Dim Projektnummer As Long
Projektnummer = InputBox("Bitte die Projektnummer eingeben.")
Set rng = Range("A:A").Find(Projektnummer)
Range("D2") = NetArbTage(rng.Offset(0, 1), rng.Offset(0, 2))
End Sub
Function NetArbTage(Startdatum As Date, Enddatum As Date) As Integer
Dim PDatum As Date
Dim AnzTage As Integer
PDatum = Startdatum
Do Until PDatum > Enddatum
If Weekday(PDatum, vbMonday) < 6 Then AnzTage = AnzTage + 1
PDatum = PDatum + 1
Loop
NetArbTage = AnzTage
End Function

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Networkdays berechnen mit Makro

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread