Clever-Excel-Forum

Seiten: 1 2 3

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

	A	B	C	D	E	F	G
1		Schuljahr 2018/2019				Schuljahr 2019/2020
2		Winterferien	Osterferien	Pfingstferien	Sommerferien	Herbstferien	Weihnachtsferien
3	* Baden-Württemberg	04.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	* Bayern	04.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	* Berlin	04.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.
6	Brandenburg	04.02. - 09.02.	15.04. - 26.04.	- *	20.06. - 03.08.	04.10. - 18.10. *	23.12. - 03.01.
7	Bremen	31.01. - 01.02.	06.04. - 23.04.	31.05. / 11.06.	04.07. - 14.08.	04.10. - 18.10.	21.12. - 06.01.
8	Hamburg	01.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.
9	Hessen	-	15.04. - 27.04.	-	01.07. - 09.08.	30.09. - 12.10.	23.12. - 11.01.
10	Mecklenburg-Vorpommern	04.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.
11	Niedersachsen	31.01. - 01.02.	08.04. - 23.04.	31.05. / 11.06.	04.07. - 14.08.	04.10. - 18.10.	23.12. - 06.01.
12	Nordrhein-Westfalen	-	15.04. - 27.04.	11.06.	15.07. - 27.08.	14.10. - 26.10.	23.12. - 06.01.
13	* Rheinland-Pfalz	25.02. - 01.03.	23.04. - 30.04.	-	01.07. - 09.08.	30.09. - 11.10.	23.12. - 06.01.
14	Saarland	25.02. - 05.03.	17.04. - 26.04.	-	01.07. - 09.08.	07.10. - 18.10.	23.12. - 03.01.
15	Sachsen	18.02. - 02.03.	19.04. - 26.04.	31.05. *	08.07. - 16.08.	14.10. - 25.10.	21.12. - 03.01.
16	Sachsen-Anhalt	11.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.
17	Schleswig-Holstein	-	04.04. - 18.04.	31.05. *	01.07. - 10.08.	04.10. - 18.10.	23.12. - 06.01.
18	Thüringen	11.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..

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
10	31.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
10	04.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
5	31.05. / 11.06. *
6	- *
7	31.05. / 11.06.
8	13.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
8	13.05. - 17.05. / 31.05. *

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

	F	G
27	13.05.2019	17.05.2019

Zelle	Formel
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

Grüße

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ß

Hi,
interessant. Leider ist deine Beispieldatei ohne sämtlichen Code?

Zudem brauche ich auch die Ferien 2020, etc.

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ß

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..

Seiten: 1 2 3

jules

jules

maninweb

jules

maninweb

jules