Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Text in Datum umwandeln
#1
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!
LG Herbert
Windows 10
Excel 2016
Antwortento top
#2
Hallo herbert 0803,

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

Gruß,
Lutz
[-] Folgende(r) 1 Benutzer sagt Danke an Lutz Fricke für diesen Beitrag:
  • herbert0803
Antwortento top
#3
Danke Lutz,

so funktioniert es.
LG Herbert
Windows 10
Excel 2016
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste