Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

[SUCHE] Kalender mit allen Feiertagen, Schulferien, etc. nach Bundesländern
#21
Diese verflixten Sonderzeichen und das wechselnde Format macht mir zu schaffen.
Wenn ich ganz simpel die Tabelle aus der Website einlese:

Code:
Sub Test()
With Sheets(1).QueryTables.Add(Connection:= _
 "URL;https://www.schulferien.org/deutschland/ferien/2019/", _
 Destination:=Sheets(1).Range("$A$1"))
.WebTables = "1"
 .BackgroundQuery = True
  .Refresh BackgroundQuery:=False
End With
End Sub
ABCDEFG
1Schuljahr 2018/2019Schuljahr 2019/2020
2WinterferienOsterferienPfingstferienSommerferienHerbstferienWeihnachtsferien
3* Baden-Württemberg04.03. - 08.03.15.04. - 27.04.11.06. - 21.06.29.07. - 10.09. *28.10. - 30.10. / 31.10. *23.12. - 04.01.
4* Bayern04.03. - 08.03. *15.04. - 27.04.11.06. - 21.06.29.07. - 09.09.28.10. - 31.10. / 20.11. *23.12. - 04.01.
5* Berlin04.02. - 09.02.15.04. - 26.04.31.05. / 11.06. *20.06. - 02.08.04.10. / 07.10. - 19.10. *23.12. - 04.01.
6Brandenburg04.02. - 09.02.15.04. - 26.04.- *20.06. - 03.08.04.10. - 18.10. *23.12. - 03.01.
7Bremen31.01. - 01.02.06.04. - 23.04.31.05. / 11.06.04.07. - 14.08.04.10. - 18.10.21.12. - 06.01.
8Hamburg01.02. *04.03. - 15.03. *13.05. - 17.05. / 31.05. *27.06. - 07.08.04.10. - 18.10. / 01.11.20.12. - 03.01.
9Hessen-15.04. - 27.04.-01.07. - 09.08.30.09. - 12.10.23.12. - 11.01.
10Mecklenburg-Vorpommern04.02. - 15.02.15.04. - 24.04.31.05. / 07.06. - 11.06. *01.07. - 10.08.04.10. / 07.10. - 12.10. / 01.11. *23.12. - 04.01.
11Niedersachsen31.01. - 01.02.08.04. - 23.04.31.05. / 11.06.04.07. - 14.08.04.10. - 18.10.23.12. - 06.01.
12Nordrhein-Westfalen-15.04. - 27.04.11.06.15.07. - 27.08.14.10. - 26.10.23.12. - 06.01.
13* Rheinland-Pfalz25.02. - 01.03.23.04. - 30.04.-01.07. - 09.08.30.09. - 11.10.23.12. - 06.01.
14Saarland25.02. - 05.03.17.04. - 26.04.-01.07. - 09.08.07.10. - 18.10.23.12. - 03.01.
15Sachsen18.02. - 02.03.19.04. - 26.04.31.05. *08.07. - 16.08.14.10. - 25.10.21.12. - 03.01.
16Sachsen-Anhalt11.02. - 15.02.18.04. - 30.04.31.05. - 01.06.04.07. - 14.08.04.10. - 11.10. / 01.11. *23.12. - 04.01.
17Schleswig-Holstein-04.04. - 18.04.31.05. *01.07. - 10.08.04.10. - 18.10.23.12. - 06.01.
18Thüringen11.02. - 15.02.15.04. - 27.04.31.05.08.07. - 17.08.07.10. - 19.10.21.12. - 03.01.
19
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Komme ich auch mit deinen Formeln noch nicht weiter. Der "*" stört. Zudem wissen wir ja nicht wann 2 oder 3 Daten, oder gar 4 in der Zelle stehen  Huh

Any ideas? Ich würde jetzt hingehen und mit =WECHSELN(B3;"*";"") die "*" rauslöschen. Im zweiten Schritt dann vermutlich alle Daten vor und nach "/" isolieren um nur die reinen Ferienzeiten zu haben..
Antworten Top
#22
N'abend nochmal,

ich habe den Kalender nun vollständig überarbeitet. Neuste Version anbei.

Jetzt habe ich einzig und allein weiter das Problem, dass er bestimmte Daten immer noch nicht liest.

F
1031.05. / 07.06. - 11.06. *
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

J
1004.10. / 07.10. - 12.10. / 01.11. *
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Sämtliche andere Daten, an denen zusätzliche Feiertage hinten mit anstehen, habe ich abgeändert. Hier ignoriere ich den zusätzlichen Tag (dieser erscheint ja in der separaten Feiertagsliste)
F
531.05. / 11.06. *
6- *
731.05. / 11.06.
813.05. - 17.05. / 31.05. *
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Vielleicht hat jemand von euch noch eine Idee, wie ich hier wirklich nur die "von - bis" Daten rausfiltern kann.
Hier noch ein Beispiel, wie ich bisher vorgegangen bin:
F
813.05. - 17.05. / 31.05. *
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
FG
2713.05.201917.05.2019

ZelleFormel
F27=WENNFEHLER(DATWERT(WENNFEHLER(GLÄTTEN(LINKS(Webtable_FE!D28;FINDEN("-";Webtable_FE!D28)-1))&$A$1;Webtable_FE!D28&$A$1-1));"")
G27=WENNFEHLER(DATWERT(WENNFEHLER(GLÄTTEN(TEIL(Webtable_FE!D28;FINDEN("-";Webtable_FE!D28)+1;LÄNGE(Webtable_FE!D28)-WENNFEHLER(FINDEN("/";Webtable_FE!D28)+1;0)))&$A$1;Webtable_FE!D28&$A$1));"")
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg


Grüße


Angehängte Dateien
.xlsb   Kalender 1.2.xlsb (Größe: 100,45 KB / Downloads: 6)
Antworten Top
#23
Hallo,

über diese Website https://ferien-api.de lassen sich die Schulferien als JSON abrufen (https://ferien-api.de/api/v1/holidays),
was wiederrum via Power Query recht einfach zu importieren ist. Beispieldatei anbei.

Gruß


Angehängte Dateien
.xlsx   Schulferien.xlsx (Größe: 22,37 KB / Downloads: 12)
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 2011-2019 & 2020-2022 :: 10 Awards
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner
Antworten Top
#24
Hi,
interessant. Leider ist deine Beispieldatei ohne sämtlichen Code?

Zudem brauche ich auch die Ferien 2020, etc.
Antworten Top
#25
Hallo,

es braucht kein VBA für die Abfrage. Es handelt sich im Power Query. Da Du 2016 in Deinem Profil angegeben hast,
gehe ich davon aus, dass Du Power Query hast.

In der Datei, erste Tabelle, Menüband Daten / Abfragen und Verbindungen anklicken. Anschließend ein Doppelklick
auf einen der Einträge im Aufgabenbereich und Du landest im Power Query Editor. Beide Abfragen liessen sich
z.B. duplizieren, sodass auch 2020 abgebildet werden könnte.

Ein Power Query Kurs kann ich Dir hier nicht geben, das würde den Rahmen des Forums sprengen.

Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 2011-2019 & 2020-2022 :: 10 Awards
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner
Antworten Top
#26
Hi,

achso ok. Verstanden.
Dürfte mir aber nicht all zuviel bringen, da ich dynamisch zwischen den Jahren herspringen möchte. Daher die Abfrage über die Website..
Antworten Top


Gehe zu:


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