Datum umwandeln - Dringend!!
02.06.2005 21:40:08
Stefan
Das untenstehende script funktioniert einwandfrei mit der Umwandlung von 20011231 in 31.12.2001; wie ist es aber wenn ich das Datumsformat 2004-02-01 in 01.02.2004 umwandeln möchte bzw. was muss ich im untenstehenden script ändern? Danke im voraus!
Sub Datum_Umwandeln2() ' Datum umwandeln von 20011231 in 31.12.2001 ' erstellt von Hajo.Ziplies@web.de Dim Z As Range For Each Z In Selection Z = Z * 1 If Len(Z) = 8 And IsNumeric(Z) Then Z = CDate(Mid(Z, 7, 2) & "." & Mid(Z, 5, 2) & "." & Mid(Z, 1, 4)) Z.NumberFormat = "dd.mm.yy" Next Z End Sub