Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nettoarbeitstage

Forumthread: Nettoarbeitstage

Nettoarbeitstage
28.09.2006 14:08:55
Michael
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nettoarbeitstage
28.09.2006 14:52:30
Piet
Hallo Michael,
am Code musst du gar nichts ändern. Es wird offensichtlich jeder "Tag" als Arbeitstag gezählt, der in einer Zelle ohne Farbe eingetragen ist. Gib einfach allen Tagen außer Mo und Mi eine Farbe und - voila!
Gruß
Piet
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige