Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe automatisch speichern, neue Anlegen

Forumthread: Arbeitsmappe automatisch speichern, neue Anlegen

Arbeitsmappe automatisch speichern, neue Anlegen
18.07.2004 12:04:16
Max
Bin komplettes Greenhorn, deshalb die Frage,
wie kann ich am Ende eines Tages, sprich 23:59:59, eine Arbeitsmappe unter "Produktionsblatt + aktuelles Datum".xls automatisch speichern, fünf Minuten vorher sollte eine Warnung erscheinen das der Tag abgeschlossen wird, und dann eine neue leere Vorlage für den kommenden Tag automatisch öffnen.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe automatisch speichern, neue Anlegen
18.07.2004 20:51:24
Josef
Hallo Max!
Als Ansatz.

' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit

Private Sub Workbook_Open()
Application.OnTime TimeValue("20:47:00"), "Message"
Application.OnTime TimeValue("20:47:10"), "Save_And_Open_NewTemplate"
End Sub

' **************************************************************
' Modul: Modul2 Typ = Allgemeines Modul
' **************************************************************
Option Explicit

Sub Save_And_Open_NewTemplate()
Application.ScreenUpdating = False
Workbooks.Add Template:="C:\Pfad zur Vorlage\Name der Vorlage.xlt"
ThisWorkbook.Close True, "C:\Pfad\Produktionsblatt_" & Format(Date, "yymmdd") & ".xls "
Application.ScreenUpdating = True
End Sub

Sub Message()
MsgBox "Diese Datei wird in fünf Minuten automatisch geschlossen!" & vbLf & vbLf & _
"Bitte beenden sie ihre Arbeit!", vbExclamation
End Sub

Gruß Sepp
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige