Wochentage zählen

01/03/2010 - 16:21 von Martin | Report spam
Hallo!
Ich hab mich mal wieder in einer Arbeitszeiterfassung verstrickt.
Ich verwende Exvel 2007.

Ich möchte zàhlen lassen wie viele gerade und ungerade Montage, Dienstage
usw. es zwischen 2 beliebigen Datums gibt.

Also am Schluß hàtt ich gerne 2 gerade Montage, 2 ungerade, 3 gerade
Dienstage . usw.

Zur Zeit lasse ich excel die Daten aus einer Monatstabelle mit einer
zàhlenwenn rauszàhlen...
Vielleicht gibts was elegantes ohne die blöde Seitengroße Tabelle.

Danke
Martin
 

Lesen sie die antworten

#1 Peter Schleif
01/03/2010 - 17:20 | Warnen spam
Martin schrieb am 01.03.2010 16:21 Uhr:

Ich möchte zàhlen lassen wie viele gerade und ungerade Montage, Dienstage
usw. es zwischen 2 beliebigen Datums gibt.
Also am Schluß hàtt ich gerne 2 gerade Montage, 2 ungerade, 3 gerade
Dienstage . usw.



Mit einer VBA-Matrix-Funktion ist das recht einfach. Der unten stehende
Code liefert die Daten zwischen 01.01.2010 und HEUTE (jeweils
einschließlich) in einer 7x2-Matrix zurück. Du müsstest also einen
Bereich von 7 Zeilen und 2 Spalten markieren, dann die Formel in die
Bearbeitungszeile eintippen/kopieren und mit <STRG><SHIFT><RETURN>
abschließen.

=WochentageZaehlen(HEUTE();"01.01.2010")

Peter

Function WochentageZaehlen(Datum1 As Date, Datum2 As Date) As Variant
Dim arr(6, 1) As Long
Dim d As Date

For d = Datum1 To Datum2 Step IIf(Datum1 <= Datum2, 1, -1)
arr((d-2) Mod 7,Day(d) Mod 2) = arr((d-2) Mod 7,Day(d) Mod 2)+1
Next

WochentageZaehlen = arr
End Function

+--++--+-+
| | A | B | C |
+--++--+-+
| 1 | | gerade | ungerade |
+--++--+-+
| 2 | Montag | 4 | 5 |
+--++--+-+
| 3 | Dienstag | 4 | 4 |
+--++--+-+
| 4 | Mittwoch | 4 | 4 |
+--++--+-+
| 5 | Donnerstag | 4 | 4 |
+--++--+-+
| 6 | Freitag | 4 | 5 |
+--++--+-+
| 7 | Samstag | 5 | 4 |
+--++--+-+
| 8 | Sonntag | 4 | 5 |
+--++--+-+

Ähnliche fragen