Macro für Samstage, Sonn -und Feiertage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Mike
über Format - bedingte Formatierung
und ein separates Arbeitsblatt mit den Feiertagen
(in B3 steht 2004):

Feiertage

	A	B	C
2	Feststehende besondere Tage	Maiä Himmelfahrt
3		Neujahr 2004	01.01.2004
4		3 Könige	06.01.2004
5		Tag der Arbeit	01.05.2004
6		Tag der deutschen Einheit	03.10.2004
7		Allerheiligen	01.11.2004
8		Heiligabend	24.12.2004
9		1. Weihnachtstag	25.12.2004
10		2. Weihnachtstag	26.12.2004
11		Sylvester	31.12.2004
12	variable besondere Tage	Karfreitag	09.04.2004
13		Ostersonntag	11.04.2004
14		Ostermontag	12.04.2004
15		Himmelfahrt	20.05.2004
16		Pfingstsonntag	30.05.2004
17		Pfingstmontag	31.05.2004
18		Fronleichnam	10.06.2004
19		1. Advent	28.11.2004
20		2. Advent	05.12.2004
21		3. Advent	12.12.2004
22		4. Advent	19.12.2004
23		Rosenmontag	23.02.2004
24		Faschingsdienstag	24.02.2004
25		Aschermittwoch	25.02.2004

Formeln der Tabelle

C3 : =DATUM(B3;1;1)
C4 : =DATUM(B3;1;6)
C5 : =DATUM(B3;5;1)
C6 : =DATUM(B3;10;3)
C7 : =DATUM(B3;11;1)
C8 : =DATUM(B3;12;24)
C9 : =DATUM(B3;12;25)
C10 : =DATUM(B3;12;26)
C11 : =DATUM(B3;12;31)
C12 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)-2
C13 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)
C14 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)+1
C15 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)+39
C16 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)+49
C17 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)+50
C18 : =(DM((TAG(MINUTE(B3/38)/2+55)&".4."&B3)/7;)*7-6)+60
C19 : =WENN(WOCHENTAG(DATUM(Jahr;12;24))=1;DATUM(Jahr;12;3);DATUM(Jahr;12;24)-WOCHENTAG(DATUM(Jahr;12;24))-20)
C20 : =C19+7
C21 : =C20+7
C22 : =C21+7
C23 : =C13-48
C24 : =C23+1
C25 : =C24+1

Tabelle3

	A	B	C	D
1	Do 01.01.2004		Feiertage	01.01.2004
2	Fr 02.01.2004			06.01.2004
3	Sa 03.01.2004
4	So 04.01.2004
5	Mo 05.01.2004
6	Di 06.01.2004
7	Mi 07.01.2004

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =ODER(WOCHENTAG($A1;2)=7;NICHT(ISTFEHLER(VERGLEICH(A1;$D$1:$D$2;0))))	Abc
A1	2. / Formel ist =WOCHENTAG($A1;2)=6	Abc
B1	1. / Formel ist =ODER(WOCHENTAG($A1;2)=7;NICHT(ISTFEHLER(VERGLEICH(B1;$D$1:$D$2;0))))	Abc
B1	2. / Formel ist =WOCHENTAG($A1;2)=6	Abc
A2	1. / Formel ist =ODER(WOCHENTAG($A2;2)=7;NICHT(ISTFEHLER(VERGLEICH(A2;$D$1:$D$2;0))))	Abc
A2	2. / Formel ist =WOCHENTAG($A2;2)=6	Abc
B2	1. / Formel ist =ODER(WOCHENTAG($A2;2)=7;NICHT(ISTFEHLER(VERGLEICH(B2;$D$1:$D$2;0))))	Abc
B2	2. / Formel ist =WOCHENTAG($A2;2)=6	Abc
A3	1. / Formel ist =ODER(WOCHENTAG($A3;2)=7;NICHT(ISTFEHLER(VERGLEICH(A3;$D$1:$D$2;0))))	Abc
A3	2. / Formel ist =WOCHENTAG($A3;2)=6	Abc
B3	1. / Formel ist =ODER(WOCHENTAG($A3;2)=7;NICHT(ISTFEHLER(VERGLEICH(B3;$D$1:$D$2;0))))	Abc
B3	2. / Formel ist =WOCHENTAG($A3;2)=6	Abc
A4	1. / Formel ist =ODER(WOCHENTAG($A4;2)=7;NICHT(ISTFEHLER(VERGLEICH(A4;$D$1:$D$2;0))))	Abc
A4	2. / Formel ist =WOCHENTAG($A4;2)=6	Abc
B4	1. / Formel ist =ODER(WOCHENTAG($A4;2)=7;NICHT(ISTFEHLER(VERGLEICH(B4;$D$1:$D$2;0))))	Abc
B4	2. / Formel ist =WOCHENTAG($A4;2)=6	Abc
A5	1. / Formel ist =ODER(WOCHENTAG($A5;2)=7;NICHT(ISTFEHLER(VERGLEICH(A5;$D$1:$D$2;0))))	Abc
A5	2. / Formel ist =WOCHENTAG($A5;2)=6	Abc
B5	1. / Formel ist =ODER(WOCHENTAG($A5;2)=7;NICHT(ISTFEHLER(VERGLEICH(B5;$D$1:$D$2;0))))	Abc
B5	2. / Formel ist =WOCHENTAG($A5;2)=6	Abc
A6	1. / Formel ist =ODER(WOCHENTAG($A6;2)=7;NICHT(ISTFEHLER(VERGLEICH(A6;$D$1:$D$2;0))))	Abc
A6	2. / Formel ist =WOCHENTAG($A6;2)=6	Abc
B6	1. / Formel ist =ODER(WOCHENTAG($A6;2)=7;NICHT(ISTFEHLER(VERGLEICH(B6;$D$1:$D$2;0))))	Abc
B6	2. / Formel ist =WOCHENTAG($A6;2)=6	Abc
A7	1. / Formel ist =ODER(WOCHENTAG($A7;2)=7;NICHT(ISTFEHLER(VERGLEICH(A7;$D$1:$D$2;0))))	Abc
A7	2. / Formel ist =WOCHENTAG($A7;2)=6	Abc
B7	1. / Formel ist =ODER(WOCHENTAG($A7;2)=7;NICHT(ISTFEHLER(VERGLEICH(B7;$D$1:$D$2;0))))	Abc
B7	2. / Formel ist =WOCHENTAG($A7;2)=6	Abc

Günther

Beliebteste Forumthreads (12 Monate)

Macro für Samstage, Sonn -und Feiertage

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread