Erste Schritte

Wir legen eine Arbeitsmappe mit den Tabellenblättern Feiertage, Kalender und Schichtfolge an. Die Reihenfolge ist beliebig, die Namen sollten so bleiben.

Am einfachsten ist das Tabellenblatt Kalender zu erstellen, es muß nur in der Zelle D2 der Eintrag 2007 vorgenommen werden. Es könnte auch ein anderes Kalenderjahr sein, wichtig ist nur die vierstellige Schreibweise im ganz normalen Format.

Sehen wir uns nun das Tabellenblatt Feiertage an. Entsprechend der Abbildung wird eine Liste angelegt. In der Spalte A werden die Formeln aus der rechten Tabelle eingetragen. In Spalte B die dazu gehörenden Feiertage. Nicht benötigte Feiertage können natürlich weg gelassen werden.

	A	B
1	2007
2	Mo 01.01.2007	Neujahr
3	Sa 06.01.2007	hl. 3 Könige
4	Mo 19.02.2007	Rosenmontag
5	Fr 06.04.2007	Karfreitag
6	So 08.04.2007	Ostersonntag
7	Mo 09.04.2007	Ostermontag
8	Di 01.05.2007	Maifeiertag
9	So 13.05.2007	Muttertag
10	Do 17.05.2007	Christi Himmelfahrt
11	So 27.05.2007	Pfingstsonntag
12	Mo 28.05.2007	Pfingstmontag
13	Do 07.06.2007	Fronleichnam
14	Mi 03.10.2007	Tag der dt. Einheit
15	Do 01.11.2007	Allerheiligen
16	Mi 21.11.2007	Buss und Bettag
17	So 02.12.2007	1. Advent
18	So 09.12.2007	2. Advent
19	So 16.12.2007	3. Advent
20	So 23.12.2007	4. Advent
21	Mo 24.12.2007	Heiliger Abend
22	Di 25.12.2007	1. Weihnachtstag
23	Mi 26.12.2007	2. Weihnachtstag
24	Mo 31.12.2007	Silvester

Formeln der Tabelle

Zelle	Formel
A1	=Kalender!D2
A2	=DATWERT("01.01."&A1)
A3	=DATWERT("06.01."&A1)
A4	=A6-48
A5	=A6-2
A6	=DM((TAG(MINUTE(A1/38)/2+55)&".4."&A1)/7;)*7-WENN(JAHR(1)=1904;5;6)
A7	=A6+1
A8	=DATWERT("01.05."&A1)
A9	=DATUM(A1;5;1)+15-WOCHENTAG(DATUM(A1;5;1))
A10	=A6+39
A11	=A6+49
A12	=A11+1
A13	=A6+60
A14	=DATWERT("03.10."&A1)
A15	=DATWERT("01.11."&A1)
A16	=DATUM(A1;12;25)-WOCHENTAG(DATUM(A1;12;25);2)-32
A17	=DATUM($A$1;12;25)-WOCHENTAG(DATUM($A$1;12;25);2)-21
A18	=DATUM($A$1;12;25)-WOCHENTAG(DATUM($A$1;12;25);2)-14
A19	=DATUM($A$1;12;25)-WOCHENTAG(DATUM($A$1;12;25);2)-7
A20	=DATUM($A$1;12;25)-WOCHENTAG(DATUM($A$1;12;25);2)
A21	=DATWERT("24.12."&A1)
A22	=DATWERT("25.12."&A1)
A23	=DATWERT("26.12."&A1)
A24	=DATWERT("31.12."&A1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Damit ist das Tabellenblatt Feiertage fertig gestellt.

Im Tabellenblatt Schichtfolge müssen diese Einträge vorhanden sein:

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC
34 Korrekturwerte für Schicht. Nicht Löschen!
35 A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
36 B -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 21 21 21 21 21 21 21
37 C -21 -21 -21 -21 -21 -21 -21 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
38 D -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 14 14 14 14 14 14 14 14 14 14 14 14 14 14

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Bitte auch genau an diese Stelle kopieren, sonst funktioniert das Makro nicht. Was es damit auf sich hat, werde ich im weiteren noch beschreiben.