Text in Datum-Zeit konvertieren

[marcm99]

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

[steve1da]

Crossposting
Bitte nachholen.

[Fennek]

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

[shift-del]

Moin

Wurde dort gelöst:
https://techcommunity.microsoft.com/t5/e...69#M176221

[steve1da]

Der typische Crossposter vergisst halt wo er alles gepostet hat.

[BoskoBiati]

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.

[LCohen]

=--TEXT(WECHSELN(A1;"-";);"0000-00-00 00\:00\:00")