Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werktage zählen

Werktage zählen
02.02.2004 09:33:04
Alex
Hallo zusammen,
ich möchte im Verlauf eines Makros, ein Ergebnis durch die Werktage des abgefragten Zeitraumes teilen.
Beispiel:
Abfragezeitraum: 01.01.2003 - 31.01.2003
Anzahl Werktage Mo - Fr: x
Gibt es in VBA oder Excel eine Kalenderfunktion, die mir die Anzahl der Werktage, unter Berücksichtigung Feiertage in eine Zelle schreibt?
Das Start bzw. Enddatum werden in VBA als Variable verwendet, können aber wahlweise auch in einer Zelle stehen.
Danke im Vorraus.
Alex

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Es fuktioniert nicht
02.02.2004 10:07:41
Alex
Hallo Andreas,
das klappt leider nicht wirklich. Mit den Formeln wird lediglich ein Datum ermittelt aber nicht die Anzahl der Werktage.
Nochmal das Beispiel:
Abfragezeitraum = 01.01.2004 - 31.01.2004
Das Ergebnis sollte "21" Tage sein.
Kannst du mir hier nochmal weiter helfen?
Gruss,
Alex
AW: Werktage zählen
02.02.2004 11:08:04
AndreasS
Hallo,
hier mein Lösungsvorschlag:
Formel:
=NETTOARBEITSTAGE(G7;F7;Feiertage!A5:A18)
G7 = IstStart
F7 = IstEnde
Tabellenblatt Feiertage (ausgeblendet):
In B4 steht das jeweils aktuelle Jahr. Die Feiertage im Range A5:A18
=DATWERT("01.01."&$B$4) Neujahr
=DATWERT("06.01."&$B$4) hl. 3 Könige
=$A$8-2 Karfreitag
=DM((TAG(MINUTE($B$4/38)/2+55) & ".4." &$B$4)/7;)*7-WENN(JAHR(1)=1904;5;6) Ostersonntag
=$A$8+1 Ostermontag
=DATWERT("01.05."&$B$4) Maifeiertag
=$A$8+39 Christi Himmelfahrt
=$A$8+49 Pfingstsonntag
=$A$8+50 Pfingstmontag
=$A$8+60 Fronleichnam
=DATWERT("03.10."&$B$4) Tag der Deutschen Einheit
=DATWERT("01.11."&$B$4) Allerheiligen
=DATWERT("25.12."&$B$4) 1. Weihnachtsfeiertag
=DATWERT("26.12."&$B$4) 2. Weihnachtsfeiertag
Gruß Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige