Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Uhrzeit fehlt beim abspeichern

Uhrzeit fehlt beim abspeichern
13.08.2002 23:10:53
Quinz
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Uhrzeit fehlt beim abspeichern
13.08.2002 23:36:54
Charlie
Hallo, Quinz!

Die Uhrzeit fehlt deshalb, weil Du die Now-Funktion nur mit dem Datumsformat belegt hast. Du musst hier auch die Uhrzeit in das Format miteinbeziehen und beachten, dass der Dateiname keinen - wie bei Uhrzeit üblich - Doppelpunkt enthalten darf. Mit einem anderen Trennzeichen (z.B. Bindestrich) funktioniert es so:

Viel Erfolg,
Charlie

Re: Uhrzeit fehlt beim abspeichern
14.08.2002 14:24:55
Quinz
Es Fuktioniert! Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige