Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige