Hallo!
Wer kann mir helfen den folgenden Text in ein Datum-Uhrzeit zu konvertieren:
20180709-150633
D.h. das Resultat sollte wiefolgt aussehen:
2018-07-09 15:06:33
Vielen, vielen Dank!!!
Marc
Hallo,
wenn der Text in A1 steht:
Code:
Dim Tx As String
Dim Tag As Date, TT As Date
Tx = Cells(1, 1)
Tag = VBA.DateSerial(Left(Tx, 4), Mid(Tx, 5, 2), Mid(Tx, 7, 2))
Tx = Split(Tx, "-")(1)
TT = VBA.TimeSerial(Left(Tx, 2), Mid(Tx, 3, 2), Right(Tx, 2))
Debug.Print Tag, TT, Tag + TT
mfg
Der typische Crossposter vergisst halt wo er alles gepostet hat.
Hi,
die Lösung ist allerdings sehr aufgeblasen, das Ergebnis entspricht nicht der Anforderung und es geht mit der gleichen Fehleranfälligkeit einfacher:
Code:
=DATUM(LINKS(A1;4);TEIL(A1;5;2);TEIL(A1;7;2))+ZEIT(TEIL(A1;10;2);TEIL(A1;12;2);TEIL(A1;14;2))
Beide Formeln arbeiten nur beim achtstelligen Datum korrekt. Bei meiner Formel ist nur das Format der Zelle auf JJJJ-MM-TT hh:mm:ss einzustellen.
=--TEXT(WECHSELN(A1;"-";);"0000-00-00 00\:00\:00")