[SUCHE] Kalender mit allen Feiertagen, Schulferien, etc. nach Bundesländern
#11
Hallöchen,

Zitat: Mein Wunsch war es aber diese nicht händisch im Kalender zu markieren

in Deinem Beispiel sind die aber noch händisch eingetragen :20:
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#12
Moin,

das hat Jules bereits so angekündigt:

Zitat:Ich habe dir mal ein manuelles Beispiel angehangen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Top
#13
Moin,

ja genau - danke Günter.

Ich war ja nicht untätig und bin etwas weiter. Dank google und Foren habe ich eine Möglichkeit gefunden.
Die Daten werden von https://www.ferienkalender.com/ferien_de...berlin.htm (bzw. dem ausgewählten Jahr + Bundesland) gezogen. Das Script hierzu weiter unten.

Nun stehe ich vor folgender Herausforderung:
Er zieht die Daten, sofern sie klar formatiert sind, wie beispielsweise die Winterferien 05.02 bis 10.02. und trägt es mir wie folgt in eine Tabelle:

ABCD
1Winterferien05.02. - 10.02.05.02.201810.02.2018
2Osterferien / Frühjahrsferien26.03. - 06.04.26.03.201806.04.2018
3Pfingstferien30.04. - 11.05. - 22.05.30.04.2018#WERT!
4Sommerferien05.07. - 17.08.05.07.201817.08.2018
5Herbstferien22.10. - 02.11.22.10.201802.11.2018
6Weihnachtsferien22.12. - 05.01.22.12.201805.01.2019
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Habe ich jetzt aber ein anderes Format, wie Pfingsten, bekomme ich eine Fehlermeldung. (Hier #WERT!) da er die 3 einzelnen Tage so natürlich nicht ins Format übertragen kann.

Weitere Formate wären beispielsweise (https://www.ferienkalender.com/ferien_de...ommern.htm)
Herbstferien
04.10./07.10. - 12.10./01.11.

In diesem Fall trägt er mir 12.10. - 01.11. ein was auch nicht korrekt ist. Hier müßte 07.10 - 12.10. .. und im idealfall der 04.10, sowie der 1.11 gesondert.


Ich habe euch die gesamte Datei mal angehangen. Nein - ich bin kein VBA Profi Smile Vielleicht kann hier jemand helfen?

Danke und Grüße


Angehängte Dateien
.xlsb   Kalender.xlsb (Größe: 73,54 KB / Downloads: 5)
Top
#14
ich hab hier mal einen Kalender, der recht schlicht aber auch einfach zu bedienen ist.


Im Kalenderblatt selbst kannst Du die Feiertage, pers. Urlaubs- und Feiertage ersehen (unter anderem auch als Kommentare)

Im Feiertageblatt kannst Du das aktuelle Bundesland mit seinen Feriendaten erlesen, sowie die Anzahl der jeweiligen Feiertage,
die den Wochentag, sowie die vergangenen Zeiten einblendet.
Weiters ist es möglich persönliche Feier/Jahrestage anzugeben, welche wiederum im Kalenderblatt eingeblendet werden.
Vorgesehen ist auch eine historische Abfrage nach dem gregorianischen und julianischem Kalender

Im Ferienkalenderblatt wird das jeweilige Bundesland über den obigen Rollbalken aufgerufen. Die Ferientermine werden über die eingeschriebenen Links aufgerufen und müssen händisch eingegeben werden.

Ich  wollte dieses über CAV-Dateien einlesen, bin aber leider gescheitert  Sleepy

Ich hoffe Du kannst es gebrauchen und über weiterführende Verbesserungen würde ich mich freuen.

by the Way, dieser Kalender hat viele Väter, unter anderem

http://www.herber.de/excelformeln und bi...rmeln.html
@MrBurns
@steve1da

viel Erfolg damit


Angehängte Dateien
.xlsm   Dynamischer Kalender.xlsm (Größe: 74,18 KB / Downloads: 22)
herzliche Grüße aus dem Emsland  :26:

Peter
Top
#15
Hi Peter,

sieht super aus.

In meiner Datei wird versucht die Ferien- und Feiertagstermine direkt online abzugreifen. Leider gibt es hier an einigen Stellen Probleme mit dem Format (siehe mein Post). Vielleicht hast du eine Idee, wie wir die Daten in zwei Spalten aufteilen könnten? Wäre dann auch in deinem Kalender nutzbar und man müßte die Daten nicht mehr manuell eintragen.

Grüße
Top
#16
Hallöchen,

von - bis ermittel ich bei mir immer per Formel. Anbei mal für die einfachen eintägigen und Von-Bis-Daten - gerechnet für Sachsen. wenn 3 Daten in einer Zelle sind, wird es etwas komplexer, wäre aber auch lösbar. Man müsste eben noch eine entsprechende Fallunterscheidung reinbringen.  

Arbeitsblatt mit dem Namen 'Ferien'
ABCDEFGH
12018WeihnachtenWinterOsternPfingstenSommerHerbstWeihnachten
14Sachsen23.12. - 02.01.12.02. - 23.02.29.03. - 06.04.19.05. - 22.05.02.07. - 10.08.08.10. - 20.10.22.12. - 04.01.
15Sachsen-Anhalt21.12. - 03.01.05.02. - 09.02.26.03. - 31.03. / 30.04. *11.05. - 19.05.28.06. - 08.08.01.10. - 12.10.19.12. - 04.01.
17Thüringen22.12. - 05.01.05.02. - 09.02.26.03. - 07.04.11.05.02.07. - 11.08.01.10. - 13.10.21.12. - 04.01.
18
19Sachsen von23.12.201712.02.201829.03.201819.05.201802.07.201808.10.201822.12.2018
20Sachsen bis02.01.201823.02.201806.04.201822.05.201810.08.201820.10.201804.01.2019

ZelleFormel
B19=DATWERT(WENNFEHLER(GLÄTTEN(LINKS(B14;FINDEN("-";B14)-1))&$A$1-1;B14&$A$1-1))
B20=DATWERT(WENNFEHLER(GLÄTTEN(TEIL(B14;FINDEN("-";B14)+1;LÄNGE(B14)))&$A$1;B14&$A$1-1))
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg


Im Kalender sieht das dann so aus, mit bedingter Formatierung für Ferien, Feiertage, Wochenenden und heute(). Das Grün für die Ferien zeigt mir das Tabellentool hier leider nicht an Sad ist aber drin

Arbeitsblatt mit dem Namen 'JAN'
BCDEFGHI
11Januar2018
201020304050607
3MoDiMiDoFrSaSo
4Ferien1
ZelleFormel
C4=ZÄHLENWENN(KalenderFix!$B$20:$B$32;C2)
Zellebedingte Formatierung...Format
C41: UND(C$2>=Ferien!$B$19;C$2<=Ferien!$B$20)+UND(C$2>=Ferien!$C$19;C$2<=Ferien!$C$20)+UND(C$2>=Ferien!$D$19;C$2<=Ferien!$D$20)+UND(C$2>=Ferien!$E$19;C$2<=Ferien!$E$20)+UND(C$2>=Ferien!$F$19;C$2<=Ferien!$F$20)+UND(C$2>=Ferien!$G$19;C$2<=Ferien!$G$20)+UND(C$2>=Ferien!$H$19;C$2<=Ferien!$H$20)abc
C42: UND(C$3="Sa";C$4=0)abc
C43: ODER(C$3="So";C$4=1)abc
C44: C$2=HEUTE()abc
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#17
Servus Schauan,

das "einfache" splitten hat meine Formel drin (VBA). Hier stehe ich aber vor der Herausforderung, dass z.B. die Pfingstferien 2020 in Niedersachsen wie "22.05./02.06." sind und er mir daraus 22.05.2020 bis 02.06.2020 macht, da er den "/" in ein "-" umwandelt. Alle Daten mit Bindestrich in Spalte B werden bei meiner Formel in Spalte C und D aufgeteilt. (von - bis).
Herausforderung also wie beschrieben bei einzelnen Daten, wie Pfingsten in Niedersachen 2020 oder wenn gar 3 Daten drin stehen..

.. oder um deine Tabelle zu nehmen, wie würdest du dann Ostern in Sachsen-Anhalt lösen...?

Ich fürchte das wird bis auf Weiteres nicht möglich sein, ohne das komplette Script umzuschreiben  :16: Huh Confused

(Auch die Formatierung habe ich über VBA)

Grüße
Top
#18
Hallöchen,

hier mal die erweiterten Formeln. Ich hab mal das Mehrfachdatum zu Sachsen geschrieben und noch nur einen Tag dazu. Den hat man zwar 3x, aber sollte die bedingte Formatierung nicht stören. Selbige muss dann noch um die 3. Zeile erweitert werden - da es nur ein Tag ist, wäre es einfach. Problematischer wer es, wenn zwei Zeiträume drin stehen oder ein Zeitraum und zwei andere Tage … Oder jemand nimmt statt dem * ein + … Oder noch irgendwas wird anders ...

Arbeitsblatt mit dem Namen 'Ferien'
ABCD
12018WeihnachtenWinterOstern
14Sachsen23.12. - 02.01.11.02.26.03. - 31.03. / 30.04. *
18
19Sachsen von23.12.201711.02.201826.03.2018
20Sachsen bis02.01.201811.02.201831.03.2018
21freier Tag11.02.201830.04.2018

ZelleFormel
B19=DATWERT(WENNFEHLER(GLÄTTEN(LINKS(B14;FINDEN("-";B14)-1))&$A$1-1;B14&$A$1-1))
B20=DATWERT(WENNFEHLER(GLÄTTEN(TEIL(B14;FINDEN("-";B14)+1;LÄNGE(B14)-WENNFEHLER(FINDEN("/";B14)+1;0)))&$A$1;B14&$A$1))
B21=WENNFEHLER(DATWERT(WENNFEHLER(GLÄTTEN(WECHSELN(TEIL(B14;FINDEN("/";B14)+1;LÄNGE(B14));"*";""))&$A$1;B14&$A$1));"")
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#19
Sieht auf den ersten Blick cool aus, danke!

Muss mir das mal ansehen, da mein Script bisher eben alles über VBA reingeholt hat. Dies wäre ggf. eine Möglichkeit nur die Daten direkt über VBA in eine Tabelle zu holen und dann im Anschluss mit deiner Formel und bedingter Formatierung weiterzuarbeiten.. 

Müßte ich das Script irgendwie "zerpflücken"  :19: Undecided
Top
#20
Hi Jules,

die eine oder andere Formel kann man z.B. direkt mittels Application.Evaluate in VBA verwenden - allerdings in englischer Syntax. Die würde man aber auch noch per Aufzeichnen hinbekommen.
Ich würde - was Du eventuell auch hast - den String splitten oder in einer Schleife zerlegen. Wenn Du zum Splitten zuerst den Schrägstrich durch ein - ersetzt und dann splittest, bekommst Du ein Array mit 3 Daten statt sonst 2. Da könnte man eventuell voraussetzen, dass das 3. Datum ein einzelner Tag ist. Im Prinzip so mal schnell hingeschrieben:

dim arrDat
arrDat=split(replace(cells(14,3).value,"/","-"),"-")
Select Case Ubound(arrDat)
Case 0 'nur ein Tag
'...
Case 1 'von bis
'...
Case 2 'von bis und ein Tag
'...
End Select

Falls es mal passieren kann, dass erst ein Tag in der Zelle steht und dann der Zeitraum, müsste man bei den Aktionen bei Case 2 vielleicht noch bewerten, ob der / vor oder nach dem - steht ....
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • jules
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste