Nettoarbeitszähltage
16.02.2009 15:45:00
Mike
ich habe im Archiv diese Funktion für Nettoarbeitszähltage gefunden:
Public Function ATC(Start, Ende, Ft)
'von Holger Levetzow
Dim C As Range
Dim i As Date
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 1) And (Weekday(C) 7) Then ATC = ATC - 1
End If
Next i
End Function
Könnte mir jemand sagen was für die Variable Ft erwartet wird. Es hat den Anschein hier
soll ein Zellenbereich durchsucht werden.
Danke und Gruß
Mike