Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie:Datei nach Ablauf einer Zeit schliessen ?

Wie:Datei nach Ablauf einer Zeit schliessen ?
03.03.2003 02:11:04
Enrico K.
Hallo !

Wie kann ich meinen EXCEL-Schichtplan nach Ablauf einer bestimmten LEERLauf-Zeit schliessen ?
D.H.: Wenn länger keine Änderungen vorgenommen wurden, soll er sich speichern und schließen, damit andere Mitarbeiter auch wieder schreibrechte auf den Plan haben !

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

Betreff
Datum
Anwender
Anzeige
Re: Wie:Datei nach Ablauf einer Zeit schliessen ?
03.03.2003 03:35:30
heinz

sie mal unter "OnTime" in der Hilfe nach

Re: Wie:Datei nach Ablauf einer Zeit schliessen ?
03.03.2003 07:56:07
geri

versuch es so bei mir i.O

in diese Mappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
startzeit
End Sub

in MOdul
Option Explicit
Dim datA As Date

Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
datA = Now + CDate("0:10:00")
Application.OnTime datA, "Schließen"
End Sub

Sub Schließen()
ThisWorkbook.Close True
End Sub

Sub Zurücksetzen()
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False

End Sub

gruss geri


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige