Nettoarbeitstage
14.12.2012 06:49:02
erichm
mit folgender Funktion ermittle ich die Nettoarbeitstage:
Function ATage(datStart As Date, datEnd As Date, rng As Range)
Dim var As Variant
Dim lDay As Long, lCount As Long
For lDay = datStart To datEnd
If WorksheetFunction.Weekday(lDay, 2)
'=ATage(A1;A2;FEIERTAGE)
A1: = Beginndatum
A2: = Endedatum
A3: ermittelt per Funktion ATage die Nettoarbeitstage (die Feiertage habe ich in einem Bereich _
abgespeichert auf den die Funktion zugreift
Kann man den Code so umbauen, dass ein Endedatum nach 20 Arbeitstagen errechnet wird:
A1: = Beginndatum
A2: Ermittlung Endedatum nach 20 Arbeitstagen per Funktion ?
Besten Dank für eine Rückmeldung.
mfg