|
Hallo,
wenn du diesen String in ein Datum umwandelst, kannst du ihn direkt dem Zellwert zuweisen. Die Formatierung würde ich dann in Excel machen.
Da das hier ein VBA-Forum ist, habe lass ich dir das formatierte Datum in der Msgbox anzeigen.
1 2 3 4 5 6 7 | Sub bspl()
Dim sText As String, alsDatum As Date
sText = "201603012312"
alsDatum = DateSerial(CInt(Left(sText, 4)), CInt(Mid(sText, 5, 2)), CInt(Mid(sText, 7, 2))) + _
TimeSerial(CInt(Mid(sText, 9, 2)), CInt(Mid(sText, 11, 2)), 0)
MsgBox Format(alsDatum, "dd.mm.yyyy hh:mm")
End Sub
|
Falls du das Zellformat via VBA anpassen möchtest, dann geht das mit
1 | Range(...).NumberFormat = "m/d/yyyy h:mm"
|
sowas findet man leicht mit dem Makrorekorder raus ;-).
Grüße, Ulrich
|