Uhrzeit fehlt beim abspeichern
13.08.2002 23:10:53
Quinz
villeicht kann mir jemand Helfen.Ich hab mir hier aus dem Forum einen VBA Text kopiert (s.u.) der bewirken soll das, daß aktuelle Worksheet mit Datum und Zeit abgespeichert wird. Das Datum wird auch angezeigt nur die Zeit fehlt. Villeicht kann mir jemand einen Tip geben.
Danke
in DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Komplett
End Sub
und in einem Modul:
Sub Komplett()
Datei = ThisWorkbook.Name
Phad = ThisWorkbook.Path
On Error Resume Next
Kill Phad & "\" & Format(Now, "DD-MM-YY") & "Backup.XLS"
ActiveWorkbook.SaveCopyAs FileName:=Phad & "\" & Format(Now, "DD-MM-YY") & "Backup.XLS"
'Windows(Format(Now, "DD-MM-YY") & "Backup.XLS").Close
End Sub
Anzeige