Nettoarbeitstage
02.06.2003 23:38:54
Hans
Ich habe ein Makro für eine Auswertung geschrieben in der ich die Funktion "Nettoarbeitstage" verwende. Auf diese Datei greifen mehrere Personen mit verschiedenen Excelversionen zu.(Excel 97 u. 2000)Im Makro kann ich aber nur Nettoarbeitstage oder Networkdays eintragen.Kennt jemand den VBA-Code für eine 5-Tage Woche oder gibt es etwas besseres.
Ziel ist es, die Differenz zwischen Soll- u. Isttermin mit Berücksichtigung von einer 5 Tage Woche,Feiertagen u. BU zu ermitteln.
Habe schon im Achiv gestöbert, und fast das richtige Makro gefunden.Doch leider funktioniert dieses Makro nur wenn der Endtermin größer als Anfangstermin ist.Es sollte aber bei zu später Lieferung ein minus (z.B. -5)und bei Übereinstimmung 0 als Ergebnis rauskommen.
Danke für Euere Hilfe
Dieser Code funktioniert nur zur Hälfte:
Function ATC(Start, Ende, FT)
Dim C As Range
ATC = 0
For i = Start To Ende
If (WeekDay(i) <> 1) And (WeekDay(i) <> 7) Then ATC = ATC + 1
Next
For i = 1 To FT.Rows.Count
Set C = FT.Cells(i, 1)
If C >= Start And C <= Ende Then
If (WeekDay(C) <> 1) And (WeekDay(C) <> 7) Then ATC = ATC - 1
End If
Next i
End Function
Anzeige