Hallo Arielle2, Guschtis Formel klappt natürlich, aber falls du auf deinem Rechner auch Libreoffice-Calc hast, geht das noch einen Tick einfacher:
In LO-Calc genügt Suchen von "Europe/Berlin" und das Feld Ersetzen leer lassen und schwupps wird daraus das Datum im Format "TT.MM.JJJJ.
Gruß Helmut
21.09.2023, 13:27 (Dieser Beitrag wurde zuletzt bearbeitet: 21.09.2023, 13:34 von Fennek.)
Hallo,
hier ein Code, der nur kleine Ergänzungen benötigt:
Code:
Sub CSV_Datum()
Dim Datum As Date, Zeit As Date, Ar, CList
Dim Mon As Integer, Tag As Integer, Jahr As Integer
CList = Application.GetCustomListContents(3)
'Debug.Print i, Join(CList, ",")
For i = 2 To 24
Ar = Split(Cells(i, 1))
For m = 1 To 12
If Ar(0) = CList(m) Then
'Debug.Print m, CList(m)
Mon = m
Exit For
End If
Next m
Datum = DateSerial(CInt(Split(Ar(1), ".")(1)), m, CInt(Split(Ar(1), ".")(0)))
Cells(i, 2) = Datum
Zeit = DateValue(Ar(2))
Cells(i, 3) = CDate(Ar(2))
Cells(i, 3).NumberFormat = "h:mm"
Next i
End Sub
mfg
@helwagemi
Excel schafft das auch:
zuerst " Europe/Berlin" löschen, dann
Code:
Sub ohne_Europe()
For i = 2 To 24
Cells(i, 7) = CDate(Cells(i, 6))
Next i
End Sub