ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen()
Dim Z As Integer
For Z = 2 To activesheet.Cells(Rows.Count, 1).End(xlUp).Row
Cells(Z, 1).Value = Format(Left(Cells(Z, 1).Value, 5) & _
".08" & Right(Cells(Z, 1).Value, Len(Cells(Z, 1).Value) - 5), _
"d/m/yy h:mm;@")
Next Z
End Sub
Das Makro fügt auch das Jahr ohne Probleme ein.
Nur aus dem ursprünglich Textformat wird kein Datum.
Das geschieht erst, wenn ich mit dem Cursor die Zelle aktiviere und wieder verlasse.
Was fehlt in dem Makro?
Gruß Günter