Datum von bis aus einer Zelle sauber Trennen

Hallo zusammen,
ich habe viel gesucht aber nichts gefunden. Hoffe Ihr könnt mir schnell weiter helfen. Ob mit Formel oder VBA ist mir egal.

Mein Problem ich habe mehrere Daten ( Datum) in einer Zelle und die will ich sauber trennen.
sieht so aus B1= 02.10./16.10. - 30.10. so hier haben wir einen einzelnen Tag und einen Bereich von tagen

nun würde ich gerne in
E1 = 02.10. stehen haben
E2 = 16.10.
E3 = 17.10.
E4 = 18.10.
.
.
.
E10 = 24.10
und so weiter bis zum 30.10

Jetzt steht in B2 = 19.05./30.05. hier sind 2 einzelne tage
Das soll dann fortlaufend weiter gehen in Spalte E

Und diese Option habe ich auch noch in B = 06.07. - 16.08. nur von bis das Datum.

Ich hoffe mir kann da jemand weiter helfen.
Ich habe diese daten so komisch in einer Zeile da ich mir über VBA die Feiertage aus dem Internet Ziehe als QueryTable
Jede art von lösung ist herzlich willkommen.
LG
Florian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ja also das ich was machen muss ist mir klar.

die Ferienzeiten ziehe ich mir aus dem Internet mit

Dim strAddresse As String, oQuery As QueryTable

Dim Bereich As Range, meAr, A As Long

Sheets("Ferien").UsedRange.Value = ""

sBundesland = Replace(sBundesland, "ü", "ue")



strAddresse = "https://www.ferienkalender.com/ferien_deutschland/Niedersachsen/" & Worksheets("Kalender").Range("B1") & "-ferien-niedersachsen.htm"

On Error GoTo ErrorAbbfrage:

    With Sheets("Ferien").QueryTables.Add(Connection:= _

        "URL;" & strAddresse _

        , Destination:=Sheets("Ferien").Range("$A$1"))

        .Name = "Termine"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlOverwriteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlSpecifiedTables

        .WebFormatting = xlWebFormattingNone

        .WebTables = "2"

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

So und wenn ich das ausführe habe ich

Winterferien 30.01. - 31.01.
Osterferien / Frühjahrsferien 27.03. - 11.04.
Pfingstferien 19.05./30.05.
Sommerferien 06.07. - 16.08.
Herbstferien 02.10./16.10. - 30.10.
Weihnachtsferien 27.12. - 05.01.

genau das raus bekommen.

Zu Thorsten seiner lösung : Das funktioniert alles mit deinem Code für 2023 sobald ich das jahr wechsel bekomme ich neue daten und in diesen Daten steht wieder xx.xx.2023

Meine Frage war im grunde wie ich das Datum aufgesplittet bekomme.

Die lösung von herbert ist natürlich ebenso genial, keine frage. Aber dort müsste ich die ferienzeiten wieder manuell eintragen.

Beliebteste Forumthreads (12 Monate)

Datum von bis aus einer Zelle sauber Trennen

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum von bis aus einer Zelle sauber Trennen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread