ich versuche im Moment Messwerte aus einer .csv Datei automatisch in Excel zu verarbeiten. Hierbei habe ich das Problem, dass die Zeit in folgendem Format angegeben wird:
M/T/JJJJ h:m:ss AM/PM
Beispielsweise:
10/13/2016 12:00:00 AM
Ich habe es bisher nicht geschafft, dass Excel das automatisch erkennt.
Ich habe mir jetzt eine Schleife gebastelt, mit der der String des Eingabedatums zerlegt wird und danach so zusammengesetzt wird wie ich das möchte.
For i = 2 To Worksheets("Rawdata").Cells(Rows.Count, 1).End(xlUp).Row
Eingabe = Split(CStr(Worksheets("Rawdata").Cells(i, 1).Value))
Datum = Split(Eingabe(0), "/")
Zeit = Split(Eingabe(1), ":")
If Len(Datum(0)) < 2 Then Datum(0) = "0" + Datum(0)
If Len(Datum(1)) < 2 Then Datum(1) = "0" + Datum(1)
If Zeit(0) = "12" Then Zeit(0) = "00"
If Eingabe(2) = "PM" Then Zeit(0) = CStr(12 + CInt(Zeit(0)))
Worksheets("Rawdata").Cells(i, 1).NumberFormat = "dd.mm.yyyy hh:mm:ss"
Worksheets("Rawdata").Cells(i, 1) = CDate(Datum(1) & "." & Datum(0) & "." & Datum(2) & " " & Zeit(0) & ":" & Zeit(1) & ":" & Zeit(2))
Next i
Das Ergebnis hat dann die Form:
TT.MM.JJJJ hh:mm:ss
13.10.2016 00:00:00
Bei mehr als 30.000 Zeilen dauert die Durchführung ziemlich lange. Gibt es eine einfachere Methode?
Viele Grüße
Lennart