Clever-Excel-Forum

Liebes Forum

Ich habe eine Ferienliste erstellt, in welcher Ferientage und Wochenenden automatisch eingetragen werden für jedes Jahr.
Das Jahr kann auf dem ersten scheet in der Zelle C1 geändert werden. daraufhin ändert sich auch die Jahreszahl im 2. scheet von welcher aus die Ferientage berechnet werden, wie auch die Daten in der Ferienliste selbst. Die Feiertage sind mit bedingten Formatierungen in der Fereinliste gefärbt (Liste ist im Anhang).

Da jedoch die Ferientage nicht überall gleich sind (Katholische Feiertage usw.) würde ich gerne so etwas wie eine Checkbox bei den Feietagen auf dem 2. sheet einbauen, damit man diese anklicken kann und so nur die ausgewählten Feiertage erscheinen. Hat jemand eine Idee wie man das machen kann?


Zudem wird die Liste hier in verschiedenen Abteilungen verwendet. es wäre augezeichnet, wenn man in der Zelle B2 die Anzahl Mitarbeiter eingeben könnte und sich so die Anzahl Spalten automatisch anpasst. Auch hier komm ich leider nicht weiter..

Bin für jede Hilfe dankbar und wenn ich etwas nicht klar genug erklärt haben sollte einfach nachfragen. :)

Liebe Grüsse
Timon

Hi Timon,

mache Deine Feiertagsliste so:

Arbeitsblatt mit dem Namen 'Feiertage'
	A	B	C	D
1	2018	Ostersonntag	Feiertage verwenden?	Feiertage allgemein
2	01.01.2018	Neujahr	x	01.01.2018
3		Dreikönig		06.01.2018
4	30.03.2018	Karfreitag	x	30.03.2018
5	01.04.2018	Ostersonntag	x	01.04.2018
6	02.04.2018	Ostermontag	x	02.04.2018
7	01.05.2018	Maifeiertag	x	01.05.2018
8	10.05.2018	Himmelfahrt	x	10.05.2018
9	20.05.2018	Pfingstsonntag	x	20.05.2018
10	21.05.2018	Pfingstmontag	x	21.05.2018
11	31.05.2018	Fronleichnam	x	31.05.2018
12		Geschenk der COMET		01.06.2018
13		Nationalfeiertag		01.08.2018
14		Mariä Himmelfahrt		15.08.2018
15	03.10.2018	Tag der Deutschen Einheit	x	03.10.2018
16	01.11.2018	Allerheiligen	x	01.11.2018
17	24.12.2018	hl. Abend	x	24.12.2018
18	25.12.2018	1. Weihnachtstag	x	25.12.2018
19	26.12.2018	2. Weihnachtstag	x	26.12.2018
20	31.12.2018	Silvester	x	31.12.2018
21	01.01.2019	Neujahr	x	01.01.2019
22	06.01.2019	Dreikönig	x	06.01.2019

Name	Bezug
Ostersonntag	=Feiertage!$B$1

Zelle	Formel
A1	=Ferienliste!C1
B1	=DM((TAG(MINUTE(A1/38)/2+55)&".4."&A1)/7;)*7-6
A2	=WENN(C2="x";D2;"")
D2	=DATUM($A$1;1;1)
A3	=WENN(C3="x";D3;"")
D3	=DATUM($A$1;1;6)
A4	=WENN(C4="x";D4;"")
D4	=Ostersonntag-2
A5	=WENN(C5="x";D5;"")
D5	=Ostersonntag
A6	=WENN(C6="x";D6;"")
D6	=Ostersonntag+1
A7	=WENN(C7="x";D7;"")
D7	=DATUM($A$1;5;1)
A8	=WENN(C8="x";D8;"")
D8	=Ostersonntag+39
A9	=WENN(C9="x";D9;"")
D9	=Ostersonntag+49
A10	=WENN(C10="x";D10;"")
D10	=Ostersonntag+50
A11	=WENN(C11="x";D11;"")
D11	=Ostersonntag+60
A12	=WENN(C12="x";D12;"")
D12	=D11+1
A13	=WENN(C13="x";D13;"")
D13	=DATUM($A$1;8;1)
A14	=WENN(C14="x";D14;"")
D14	=DATUM($A$1;8;15)
A15	=WENN(C15="x";D15;"")
D15	=DATUM($A$1;10;3)
A16	=WENN(C16="x";D16;"")
D16	=DATUM($A$1;11;1)
A17	=WENN(C17="x";D17;"")
D17	=DATUM($A$1;12;24)
A18	=WENN(C18="x";D18;"")
D18	=DATUM($A$1;12;25)
A19	=WENN(C19="x";D19;"")
D19	=DATUM($A$1;12;26)
A20	=WENN(C20="x";D20;"")
D20	=DATUM($A$1;12;31)
A21	=WENN(C21="x";D21;"")
D21	=D20+1
A22	=WENN(C22="x";D22;"")
D22	=D21+5

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Hallöchen,

für die Feiertagsauswahl kannst DU auch eine "X"-Liste der Bundesländer erstellen und je nach Auswahl dann die "X" übernehmen, im Prinzip so- Bundeslandauswahl hier in C2.

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D	E
1	Tag	Verwenden	Auswahl	Bayern	Sachsen
2	01. Jan	x	Sachsen	x	x
3	06. Jan	0		x

Zelle	Formel
B2	=INDEX($D$1:$E$3;ZEILE();VERGLEICH($C$2;$D$1:$E$1;0))
B3	=INDEX($D$1:$E$3;ZEILE();VERGLEICH($C$2;$D$1:$E$1;0))

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Vielen Dank für die Antworten

Sieht sehr gut aus vielen Dank. Ich werde es mal so einbauen

Habt ihr vielleicht auch noch eine Idee für die automatische anpassung der Spalten? Würde mir einiges an Arbeit für das ständige anpassen abnehmen.

Liebe Grüsse
Timon

Sub spaltenanzahl()
wertb2 = [B2].Value
Columns.Hidden = False
If wertb2 < 10 Then Range(Columns(4 + wertb2), Columns(13)).Hidden = True
End Sub