ich habe in den Archiven bereits einen Thread gefunden, der im Prinzip genau mein Problem betrifft. Ich möchte eine Excel Spalte in ein "Benutzerdefiniertes" Format umwandeln.
Das hier war der ehemalige Thread:
https://www.herber.de/forum/archiv/360to364/363098_Excel_erkennt_Datum_nicht_als_Datum_an.html
Ich habe den Text bisher in folgendem Format:
TT.MM.JJJJ hh:mm;@
04.03.2018 04:19
Im Script funktioniert das allerdings nicht mit dem Format. Jetzt habe ich folgendes genommen:
Sub ConvertToDate()
Dim myRange As Range
Set myRange = ActiveSheet.Range(ActiveSheet.Cells(2, 9), ActiveSheet.Cells(500, 9))
For Each rngCell In myRange.Cells
With rngCell
.NumberFormat = "dd.mm.yyyy hh:mm"
If IsDate(.Text) Then
.Value = DateValue(.Text)
End If
End With
Next 'rngCell
End Sub
Ich habe die deutsche Version, im Skript nimmt Excel die Parameter ausm Deutschen aber irgendwie nicht. Ende vom Lied ist, dass er das Datum umwandelt, die Uhrzeit jedoch verloren geht und durch 00:00 ersetzt wird. Hat jemand hier vielleicht eine Lösung für mich?