Excel VBA - Formátování data

Jo, ještě doplněk.. pokud je datum 15/06/08 12:08 tak se datum po otevření a uložení buňky správně změní na 15/06/2008 12.08

jenže pokud je datum třeba 06/07/08 12:08, tak se datum změní hned.. ale prohodí se dny a měsíce.. takže výsledek je 07/06/2008 12.08

predpokladam, ze v OS je v mistnim nastaveni oddelovac pro datum "/"
muzes pouzit funkci Format:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Object
'identifikace oblasti
Set isect = Application.Intersect(ActiveSheet.Range("d:d"), Target)
If isect Is Nothing Then Exit Sub
If Target.Resize(1, 1).Value = vbNullString Then Exit Sub ' delete
Target.Value = Format(Target.Value, "dd/mm/yyyy hh.mm")
End Sub

jeste je nutno pouzit vlastnost EnableEvents - zabranit zacykleni, takze takto:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Object
'identifikace oblasti
Set isect = Application.Intersect(ActiveSheet.Range("d:d"), Target)
If isect Is Nothing Then Exit Sub
If Target.Resize(1, 1).Value = vbNullString Then Exit Sub ' delete
Application.EnableEvents = False
Target.Value = Format(Target.Value, "dd/mm/yyyy hh.mm")
Application.EnableEvents = True
End Sub