Clever-Excel-Forum

Normale Version: Text in Datum umwandeln
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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!
Hallo herbert 0803,

probier mal
Code:
Datum = DateSerial(Left(Datum, 4), Mid(Datum, 5, 2), Right(Datum, 2))

Gruß,
Lutz
Danke Lutz,

so funktioniert es.