Text in Datum umwandeln

[herbert0803]

Hallo!

Ich lese mit folgendem Code aus einer Zelle (Text) die letzten acht Stellen aus, welche für mich ein Datum sein sollen.

Code:

Datum = Right(Range("A2").Value, 8)

Das Datum steht in A2 am Ende im Format JJJJMMTT
Somit bekomme ich als Ergebnis zB 20200921

Wie kann ich den erhaltenen Wert/Text in eine Zelle als Datum im Format tt.mm.jjjj einfügen?

Danke!

[Lutz Fricke]

Hallo herbert 0803,

probier mal

Code:

Datum = DateSerial(Left(Datum, 4), Mid(Datum, 5, 2), Right(Datum, 2))

Gruß,
Lutz

[herbert0803]

Danke Lutz,

so funktioniert es.