Ziffern in Datum umwandeln

Forumthread: Ziffern in Datum umwandeln

05.08.2025 15:45:51

Suche Antworten

Hallo,

ich schlag mich grade mit folgendem Problem rum:

Exceltabelle erhalten, Datum ist in 3- und 4-stelligen Ziffern angegeben.
910=09.10.
1010=10.10.

mit der benutzerdefinierten Zahlenformatierung bekomme ich alles auf 4-stellige Ziffern.
Nun muss ich diese aber noch ins DD.MM.JJJJ umwandeln.

Ich gehe hierbei davon aus, dass ich in ner Extraspalte wie folgte agieren kann:

Ziehe aus den Ziffern 1 und 2 in Koordinate X den Tag
Ziehe aus den Ziffern 3 und 4 in Koordinate X den Monat
Füge dann Zahl X als JJJJ hinzu

und das ganze dann im Format DD.MM.JJJJ

es wäre nett, wenn hier jemand einen Plan für sowas hätte.

Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ziffern in Datum umwandeln

05.08.2025 15:58:33

daniel
AW: Ziffern in Datum umwandeln

07.08.2025 19:55:50

Marc
AW: Ziffern in Datum umwandeln

05.08.2025 16:14:26

GerdL
AW: Ziffern in Datum umwandeln

05.08.2025 16:25:19

BoskoBiati

AW: Ziffern in Datum umwandeln

05.08.2025 15:58:33

daniel

Hi

wenns immer das aktuelle Jahr sein soll:

=--Text(A1;"00\.00")

Wenn du ein bestimmtest Jahr (X) noch verwenden willst, dann

=--(Text(A1;"00\.00\.")&X)

oder auch

=Datum(X;Rest(A1;100);Quotient(A1;100))

Gruß Daniel

AW: Ziffern in Datum umwandeln

07.08.2025 19:55:50

Marc

warum nicht einfach die entsprechende Spalte so formatieren, das mit der Eingabe das Datum direkt so formatiert wird, das du damit arbeiten kannst.

Und einfach Disziplin lernen oder beibringen, das alle die da dran arbeiten, eine korrekte Formatierung vom Datum lernen..

und 09..10 ist kein korrektes Datum.. da fehlt das Jahr noch..

AW: Ziffern in Datum umwandeln

05.08.2025 16:14:26

GerdL

Hallo

oder mit VBA.

Sub Unit()



Dim Cel As Range, intJahr As Integer



intJahr = 2025



For Each Cel In Selection.Cells 'Zellen in der Markierung

    If IsNumeric(Cel.Text) Then

        If Len(Cel) = 3 Then

            Cel.NumberFormat = "dd.mm.yyyy"

            Cel = DateSerial(intJahr, CInt(Mid(Cel, 2, 2)), CInt(Left(Cel, 1)))

        ElseIf Len(Cel) = 4 Then

            Cel.NumberFormat = "dd.mm.yyyy"

            Cel = DateSerial(intJahr, CInt(Mid(Cel, 3, 2)), CInt(Left(Cel, 2)))

        End If

    End If

Next



End Sub

Gruß Gerd

AW: Ziffern in Datum umwandeln

05.08.2025 16:25:19

BoskoBiati

Hi,

und was wird aus 105, 112 oder 111?

Gruß

Edgar

Forumthread: Ziffern in Datum umwandeln

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread