Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige