Nettoarbeitstage
28.09.2006 14:08:55
Michael
folgender VBA-Code zählt die einzelnen Nettoarbeitstage im Monat.
Sub NettoArbeitstage()
Dim iCounter As Integer, Tage As Integer
Dim rng As Range, ZBereich As Range
For iCounter = 12 To 23
Tage = 0
Set ZBereich = Range(Cells(iCounter, 2), Cells(iCounter, 32))
For Each rng In ZBereich
If rng.Interior.ColorIndex = xlNone Then Tage = Tage + 1
Next rng
Cells(iCounter, 41).Value = Tage
Next iCounter
End Sub
Wie müsste ich den Code umstricken, dass jeweils nur der Montag und Mittwoch als Arbeitstag gezählt würde ?
Vielen Dank.
Micha
Anzeige