VBA Textfeld in Datum mit uhrzeit umwandeln
08.11.2017 11:30:06
Bellandi
ich habe ein Problem was für Euch wahrscheinlich ein Kinderspiel sein wird.
In meiner Tabelle stehen in Spalte "A" Datumswerte mit Uhrzeit zum Beispeil 20.05.2016 11:35:29 jedoch sind diese als Text formatiert und stehen linksbündig.
Ich brauche diese aber als Datum mit Uhrzeit also genauso wie sie bereits dort stehen. Folgender Makro erledigt seine Arbeit prima jedoch löscht er mir die Uhrzeiten heraus die ich aber dringend brauche.... Wie müsste das Makro richtig lauten damit die Uhrzeiten nicht verloren gehen ?
Sub Datum()
' Datum Makro
Columns("a:a").Select
Dim rngCell As Range
On Error Resume Next
For Each rngCell In Selection
If IsDate(rngCell.Value) Then
rngCell.Value = DateValue(rngCell.Value)
End If
Next rngCell
On Error GoTo 0
End Sub