Feiertage suchen und dem Datum zuordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Vhem,

Frei

	A	B	C	D	E	F
1	01.01.2005	Neujahr		Jahr	2005
2	02.01.2005				Feiertag im Bundesland	Text der geschrieben wird
3	03.01.2005			01.01.2005	01.01.2005	Neujahr
4	04.01.2005			06.01.2005	06.01.2005	hl. 3 Könige
5	05.01.2005			07.02.2005		Rosenmontag
6	06.01.2005	hl. 3 Könige		25.03.2005	25.03.2005	Karfreitag
7	07.01.2005			26.03.2005		Ostersamstag
8	08.01.2005			27.03.2005	27.03.2005	Ostersonntag
9	09.01.2005			28.03.2005	28.03.2005	Ostermontag
10	10.01.2005			01.05.2005	01.05.2005	Maifeiertag
11	11.01.2005			05.05.2005	05.05.2005	Christi Himmelfahrt
12	12.01.2005			08.05.2005		Muttertag Formel von Boris, wenn der zweite Sonntag auf Pfingsten fällt ist der Muttertag davor
13	13.01.2005			14.05.2005		Pfingstsamstag
14	14.01.2005			15.05.2005	15.05.2005	Pfingstsonntag
15	15.01.2005			16.05.2005	16.05.2005	Pfingstmontag
16	16.01.2005			26.05.2005		Fronleichnam
17	17.01.2005			03.10.2005	03.10.2005	Nationalfeiertag
18	18.01.2005			02.10.2005		laut Hinweis im Forum gibt es noch unterschiede in den Konfesion (evangelich / katolisch)
19	19.01.2005			31.10.2005	31.10.2005	Reformationstag
20	20.01.2005			01.11.2005		Allerheiligen
21	21.01.2005			13.11.2005		Volkstrauertag
22	22.01.2005			16.11.2005		Buss- und Betag
23	23.01.2005			20.11.2005		Totensonntag/Ewigkeitssontag
24	24.01.2005			27.11.2005		1. Advent
25	25.01.2005			04.12.2005		2. Advent
26	26.01.2005			11.12.2005		3. Advent
27	27.01.2005			18.12.2005		4. Advent
28	28.01.2005			24.12.2005		hl. Abend
29	29.01.2005			25.12.2005	25.12.2005	1. Weihnachtstag
30	30.01.2005			26.12.2005	26.12.2005	2. Weihnachtstag
31	31.01.2005			31.12.2005		Silvester

Formeln der Tabelle

B1 : =WENN(ISTFEHLER(SVERWEIS(A1;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A1;$E$3:$F$31;2;FALSCH))
E1 : =JAHR(A1)
B2 : =WENN(ISTFEHLER(SVERWEIS(A2;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A2;$E$3:$F$31;2;FALSCH))
B3 : =WENN(ISTFEHLER(SVERWEIS(A3;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A3;$E$3:$F$31;2;FALSCH))
D3 : =DATWERT("01.01."&E1)
E3 : =D3
B4 : =WENN(ISTFEHLER(SVERWEIS(A4;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A4;$E$3:$F$31;2;FALSCH))
D4 : =DATWERT("06.01."&E1)
E4 : =D4
B5 : =WENN(ISTFEHLER(SVERWEIS(A5;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A5;$E$3:$F$31;2;FALSCH))
D5 : =D8-48
B6 : =WENN(ISTFEHLER(SVERWEIS(A6;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A6;$E$3:$F$31;2;FALSCH))
D6 : =D8-2
E6 : =D6
B7 : =WENN(ISTFEHLER(SVERWEIS(A7;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A7;$E$3:$F$31;2;FALSCH))
D7 : =D8-1
B8 : =WENN(ISTFEHLER(SVERWEIS(A8;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A8;$E$3:$F$31;2;FALSCH))
D8 : =DM((TAG(MINUTE(E1/38)/2+55) & ".4." & E1)/7;)*7-WENN(JAHR(1)=1904;5;6)
E8 : =D8
B9 : =WENN(ISTFEHLER(SVERWEIS(A9;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A9;$E$3:$F$31;2;FALSCH))
D9 : =D8+1
E9 : =D9
B10 : =WENN(ISTFEHLER(SVERWEIS(A10;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A10;$E$3:$F$31;2;FALSCH))
D10 : =DATWERT("01.05."&E1)
E10 : =D10
B11 : =WENN(ISTFEHLER(SVERWEIS(A11;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A11;$E$3:$F$31;2;FALSCH))
D11 : =D8+39
E11 : =D11
B12 : =WENN(ISTFEHLER(SVERWEIS(A12;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A12;$E$3:$F$31;2;FALSCH))
D12 : =DATUM(E1;5;1)+14-WOCHENTAG(DATUM(E1;5;1);2)-(7*(DATUM(E1;5;1)+14-WOCHENTAG(DATUM(E1;5;1);2)=RUNDEN((TAG(MINUTE(E1/38)/2+55)&".4."&E1)/7;)*7-6+49))
B13 : =WENN(ISTFEHLER(SVERWEIS(A13;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A13;$E$3:$F$31;2;FALSCH))
D13 : =D8+48
B14 : =WENN(ISTFEHLER(SVERWEIS(A14;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A14;$E$3:$F$31;2;FALSCH))
D14 : =D8+49
E14 : =D14
B15 : =WENN(ISTFEHLER(SVERWEIS(A15;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A15;$E$3:$F$31;2;FALSCH))
D15 : =D8+50
E15 : =D15
B16 : =WENN(ISTFEHLER(SVERWEIS(A16;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A16;$E$3:$F$31;2;FALSCH))
D16 : =D8+60
B17 : =WENN(ISTFEHLER(SVERWEIS(A17;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A17;$E$3:$F$31;2;FALSCH))
D17 : =DATWERT("03.10."&E1)
E17 : =D17
B18 : =WENN(ISTFEHLER(SVERWEIS(A18;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A18;$E$3:$F$31;2;FALSCH))
D18 : =DATUM(E1;10;1)+7-WOCHENTAG(DATUM(E1;10;1);2)
B19 : =WENN(ISTFEHLER(SVERWEIS(A19;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A19;$E$3:$F$31;2;FALSCH))
D19 : =DATWERT("31.10."&E1)
E19 : =D19
B20 : =WENN(ISTFEHLER(SVERWEIS(A20;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A20;$E$3:$F$31;2;FALSCH))
D20 : =DATWERT("01.11."&E1)
B21 : =WENN(ISTFEHLER(SVERWEIS(A21;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A21;$E$3:$F$31;2;FALSCH))
D21 : =DATUM(E1;12;25)-WOCHENTAG(DATUM(E1;12;25);2)-35
B22 : =WENN(ISTFEHLER(SVERWEIS(A22;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A22;$E$3:$F$31;2;FALSCH))
D22 : =DATUM(E1;12;25)-WOCHENTAG(DATUM(E1;12;25);2)-32
B23 : =WENN(ISTFEHLER(SVERWEIS(A23;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A23;$E$3:$F$31;2;FALSCH))
D23 : =DATUM(E1;12;25)-WOCHENTAG(DATUM(E1;12;25);2)-28
B24 : =WENN(ISTFEHLER(SVERWEIS(A24;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A24;$E$3:$F$31;2;FALSCH))
D24 : =DATUM($E$1;12;25)-WOCHENTAG(DATUM($E$1;12;25);2)-21
B25 : =WENN(ISTFEHLER(SVERWEIS(A25;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A25;$E$3:$F$31;2;FALSCH))
D25 : =DATUM($E$1;12;25)-WOCHENTAG(DATUM($E$1;12;25);2)-14
B26 : =WENN(ISTFEHLER(SVERWEIS(A26;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A26;$E$3:$F$31;2;FALSCH))
D26 : =DATUM($E$1;12;25)-WOCHENTAG(DATUM($E$1;12;25);2)-7
B27 : =WENN(ISTFEHLER(SVERWEIS(A27;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A27;$E$3:$F$31;2;FALSCH))
D27 : =DATUM($E$1;12;25)-WOCHENTAG(DATUM($E$1;12;25);2)
B28 : =WENN(ISTFEHLER(SVERWEIS(A28;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A28;$E$3:$F$31;2;FALSCH))
D28 : =DATWERT("24.12."&E1)
B29 : =WENN(ISTFEHLER(SVERWEIS(A29;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A29;$E$3:$F$31;2;FALSCH))
D29 : =DATWERT("25.12."&E1)
E29 : =D29
B30 : =WENN(ISTFEHLER(SVERWEIS(A30;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A30;$E$3:$F$31;2;FALSCH))
D30 : =DATWERT("26.12."&E1)
E30 : =D30
B31 : =WENN(ISTFEHLER(SVERWEIS(A31;$E$3:$F$31;2;FALSCH));"";SVERWEIS(A31;$E$3:$F$31;2;FALSCH))
D31 : =DATWERT("31.12."&E1)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

hallo, du scheinst in bayern beheimatet, wir brandenburger kommen mit weniger feiertagen aus, wie man hier sieht, aber du kannst die liste ja anpassen
viel spass
Function IstFeiertag(datumm As Date) As String 'quelle dos international 10/97 Seite 212 (die zeitung nennt sich jetzt pc-magazin) Dim Osterdatum As Date If Day(datumm) = 1 And Month(datumm) = 1 Then IstFeiertag = "Neujahr" ElseIf Day(datumm) = 1 And Month(datumm) = 5 Then IstFeiertag = "Maifeiertag" ElseIf Day(datumm) = 3 And Month(datumm) = 10 Then IstFeiertag = "Tag der Deutschen Einheit" ElseIf Day(datumm) = 25 And Month(datumm) = 12 Then IstFeiertag = "1. Weihnachtstag" ElseIf Day(datumm) = 26 And Month(datumm) = 12 Then IstFeiertag = "2. Weihnachtstag" Else Osterdatum = HolOsterdatum(Year(datumm)) If datumm = Osterdatum - 2 Then IstFeiertag = "Karfreitag" ElseIf datumm = Osterdatum Then IstFeiertag = "Ostersonntag" ElseIf datumm = Osterdatum + 1 Then IstFeiertag = "Ostermontag" ElseIf datumm = Osterdatum + 39 Then IstFeiertag = "Christi Himmelfahrt" ElseIf datumm = Osterdatum + 49 Then IstFeiertag = "Pfingstsonntag" ElseIf datumm = Osterdatum + 50 Then IstFeiertag = "Pfingstmontag" Else: IstFeiertag = "" End If End If End Function
Function HolOsterdatum(jahrr As Integer) As Date 'quelle dos international 10/97 Seite 212 'nach eingabe der jahreszahl wird das osterdatum zurückgegeben 'jahreszahl gilt von 1901 bis 2078 'ostern fällt auf den sonntag nach dem ersten vollmond in anschluß an die 'märz tag- und nachtgleiche und der liebe herr gauss hat das mathematisch erfaßt Dim a, u_b, c, d, e, tagg, monatt As Integer a = jahrr Mod 19 u_b = jahrr Mod 4 c = jahrr Mod 7 d = (19 * a + 24) Mod 30 e = (2 * u_b + 4 * c + 6 * d + 5) Mod 7 tagg = 22 + d + e monatt = 3 If tagg > 31 Then tagg = d + e - 9 monatt = 4 ElseIf tagg = 26 And monatt = 4 Then tagg = 19 ElseIf tagg = 25 And monatt = 4 And d = 28 And e = 6 And a > 10 Then tagg = 18 End If HolOsterdatum = DateSerial(jahrr, monatt, tagg) End Function

Function HolOsterdatum(jahrr As Integer) As Date 'quelle dos international 10/97 Seite 212 'nach eingabe der jahreszahl wird das osterdatum zurückgegeben 'jahreszahl gilt von 1901 bis 2078 'ostern fällt auf den sonntag nach dem ersten vollmond in anschluß an die 'märz tag- und nachtgleiche und der liebe herr gauss hat das mathematisch erfaßt Dim a, u_b, c, d, e, tagg, monatt As Integer a = jahrr Mod 19 u_b = jahrr Mod 4 c = jahrr Mod 7 d = (19 * a + 24) Mod 30 e = (2 * u_b + 4 * c + 6 * d + 5) Mod 7 tagg = 22 + d + e monatt = 3 If tagg > 31 Then tagg = d + e - 9 monatt = 4 ElseIf tagg = 26 And monatt = 4 Then tagg = 19 ElseIf tagg = 25 And monatt = 4 And d = 28 And e = 6 And a > 10 Then tagg = 18 End If HolOsterdatum = DateSerial(jahrr, monatt, tagg) End Function

Beliebteste Forumthreads (12 Monate)

Feiertage suchen und dem Datum zuordnen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

238 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Feiertage suchen und dem Datum zuordnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

238 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread