Jahreskalender, nur Arbeitstage

Einen zeilenweisen Kalender mit nur den Arbeitstagen des Jahres erstellen

  • Tra­gen Sie in A1 den ersten Tag des entsprechen­den Jahres ein, beispiel­sweise 1.1.2016.
  • Erforder­lichen­falls noch ein­mal A1 markieren, Strg, der Bere­ich bis zur let­zten Zeile des Arbeits­blatts wird markiert.
  • Menü Start | Gruppe Bear­beit­en | Füll­bere­ich ▼ | Rei­he… 
  • Als Endw­ert tra­gen Sie den let­zten Tag des entsprechen­den Jahres ein, hier also beispiel­sweise 31.12.2016:
Automatisch das ganze Jahr ausfüllen

Automa­tisch das ganze Jahr aus­füllen

Damit wird erst ein­mal jed­er Tag des Jahres in Spalte A, begin­nend in A1 einge­tra­gen. Selb­stver­ständlich auch der 29. Feb­ru­ar, falls es (wie 2016) ein Schalt­jahr ist. Die kalen­darischen Dat­en ste­hen nun als ganz nor­males Datum, nicht als Formel in den Zellen. Nun emp­fiehlt es sich, den Dat­en noch eine Über­schrift zu geben. Noch ste­hen zwar alle Tage in der Liste, aber später sollen es ja nur die Arbeit­stage des Jahres sein.

Ide­al­er­weise fügen Sie nun in Zeile 1 eine neue Zeile ein. Ein­fach ein Recht­sklick in A1 und dann die entsprechende Auswahl. Schreiben Sie nun in (die neue Zelle) A1 beispiel­sweise Arbeit­stage 2016 hinein. – Nicht zwin­gend erforder­lich aber aus­ge­sprochen hil­fre­ich und durch uns hier im Skript ver­wen­det: Markieren Sie eine beliebige Zelle im Daten­bere­ich und dann StrgT, um daraus ein Intel­li­gente Tabelle zu erstellen. Wir haben der Intel­li­gen­ten Tabelle dann noch den Namen Werktage_2016 gegeben.

Als näch­stes ist es erforder­lich, eine Liste/Tabelle der Feiertage des entsprechen­den Jahres zu erstellen. Das kann auf dem gle­ichen oder einem anderen Blatt geschehen. Schauen Sie beispiel­sweise hier nach, wie Sie das recht ele­gant in Plain Excel oder per VBA erledi­gen kön­nen. – Unsere Tabelle mit den Feierta­gen haben wir direkt aus dem ver­Link­ten File über­nom­men. Die Tabelle/Liste hat den Namen tbl_Feiertage und die Spal­ten sind mit den Über­schriften nach den Kon­ven­tio­nen der Intel­li­gen­ten Tabelle „benamst“.

Wenn Sie nun in dem Tabel­len­blatt mit allen Tagen des Jahres in Zelle B1 eine Über­schrift (beispiel­sweise) WE oder FT eingeben, wird die Liste automa­tisch um eine Spalte erweit­ert. Geben Sie nun in B2 eine Formel nach dieser Vorge­hensweise ein:
=oder(wochentag(
und dann direkt A2 anklick­en. Die Formel stellt sich nun so dar, wen Sie die gle­ichen Über­schriften wie wir ver­wen­det haben:
=oder(wochentag([@[Arbeitstage 2016]] 

Ergänzen Sie nun diese Formel um ; 2)>5;, jet­zt ste­ht dort:
=oder(wochentag([@[Arbeitstage 2016]]; 2)>5; 

Damit ist erst ein­mal das Woch­enende „abge­hakt”. Das so allein ste­hende Semi­kolon am Ende der Formel und die fehlende schließen­den Klam­mer zeigen an, dass da noch etwas fol­gen wird. Klar, es soll ja auch noch berech­net wer­den, ob es sich bei dem Datum um einen Feiertag han­delt. Hier kommt die Funk­tion ZÄHLENWENN() zur Anwen­dung. Ergänzen Sie die Formel also direkt mit zählenwenn( und danach ein Klick auf den oberen Rand der zweit­en Spalte der FeiertagsTabelle:

Alle kalendarischen Daten der Feiertage markieren

Alle kalen­darischen Dat­en der Feiertage markieren

Damit wird dann automa­tisch der Bere­ich der kalen­darischen Dat­en markiert und in die Formel über­nom­men. Jet­zt noch ein Semi­kolon vor dem noch fol­gen­dem zweit­en Argu­ment. Ver­glichen wer­den soll ja mit dem jew­eili­gen Datum. Also Wech­sel in die Jahresta­belle und ein Klick in A2. Gle­ich danach die schließende Klam­mer für diese Funk­tion und nun nur noch =1) und die gesamte Formel ist abgeschlossen. Fol­gende Formel wird nun automa­tisch in alle Zeilen des Daten­bere­ichs einge­tra­gen:
=oder(wochentag([@[Arbeitstage 2016]]; 2)>5; zählenwenn(tbl_Feiertage[FT-Datum]; [@[Arbeitstage 2016]])=1)

Lay­outbe­d­ingt wird diese Formel hier ver­mut­lich mehrzeilig dargestellt wer­den, es ist aber in Excel 1 Zeile. Das Ergeb­nis dieser Funk­tion ist natür­lich ein Wahrheitswert, also WAHR oder FALSCH. Und da die „Behaup­tung” war, dass es sich bei dem betrof­fe­nen Tag um ein Woch­enende oder einen Feiertag han­delt, wer­den die betrof­fe­nen Tage mit einem WAHR in Spalte B gekennze­ich­net.

Hin­weis: Diesen Stand der Dinge kön­nen Sie hier in unserem Blog herunter laden.

Nun bleibt nur noch, in B1 den Fil­ter auf WAHR zu set­zen und alle Zeilen, welche dann noch nach Zeile 1 sicht­bar sind, zu löschen:

Wochenenden und Feiertage herausfiltern

Woch­enen­den und Feiertage her­aus­fil­tern

Wenn Sie sich jet­zt ein­fach machen wollen, dann gehen Sie nach A2 (die Zelle ist ja auf jeden Fall sicht­bar, denn es han­delt sich ja um einen der Feiertage, weil es der der 1. Jan­u­ar also Neu­jahr ist) und dann die Tas­tenkom­bi­na­tion StrgShiftEnde, um alle sicht­baren Daten­zellen zu markieren.

Nun ein Recht­sklick und im Kon­textmenü Zeile/Spalte löschen und dort dann die zweite Möglichkeit des Unter­menüs, Gesamte Blattzeile. Nun zuerst den Fil­ter aus WE oder FT ent­fer­nen (Alle anzeigen) und danach ein­fach die Spalte B löschen. Sie hat ihren Dienst getan.Jetzt haben Sie auss­chließlich die Tage des Jahres ohne Woch­enen­den und Feiertage in der Liste. Sie kön­nen die Intel­li­gente Tabelle wieder in einen nor­malen Bere­ich umwan­deln (Recht­sklick, Tabelle | In Bere­ich kon­vertieren und dann die Hin­ter­grund­farbe auf Keine Fül­lung set­zen und A1 wieder schwarze Schrift­farbe) oder alle so belassen. – In jedem Fall sind Sie nun fer­tig.

Ein Hin­weis noch: Dass die Funk­tion­sna­men hier im Skript immer klein geschrieben sind, hat seinen Grund. Denn wenn diese nach Ver­lassen der Zelle nicht automa­tisch in Großbuch­staben umge­wan­delt wer­den, dann sind sie falsch geschrieben. Das erle­ichtert im Falle eines Fall­es enorm die Fehler­suche!

Wollen Sie das Gegen­stück solch ein­er Liste erstellen, dann set­zen Sie entwed­er den Fil­ter auf FALSCH oder schauen Sie ein­mal hier nach.

[NachOben­Let­zte Verweis=„ML: Nur Arbeit­stage”]
Dieser Beitrag wurde unter Datum und Zeit, Musterlösungen, Ohne Makro/VBA, Tabelle und Zelle abgelegt und mit , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.