Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tue etwas nach Wartezeit.

Tue etwas nach Wartezeit.
08.07.2004 09:44:22
Torben
Hallo Excel-Gemeinde....
Ich möchte in einer Excel-tabelle ein Makro einbauen, das nach 10 Minuten die Excel-Mappe schluießt, wenn keine Eingaben gemacht werden. Geht so etwas?
Mit bestem Dank im vorraus
Torben

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tue etwas nach Wartezeit.
geri
Hallo Torben
aus Archiv
in diese Mappe

Private Sub Workbook_Open()
DaZeit = "0:10:00" 'hier die Zeit ändern in "0:05:00"
ThisWorkbook.Worksheets("Eingabetabelle").Range("A1") = CDate(DaZeit)
Zeitmakro
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="Zeitmakro", Schedule:=False
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.Worksheets("Eingabetabelle").Range("A1") = DaZeit
End Sub

In ein Modul:
Option Explicit
Public ET As Variant
Public DaZeit As Date
Sub Zeitmakro()
ThisWorkbook.Worksheets("Eingabetabelle").Range("A1") = ThisWorkbook.Worksheets("Eingabetabelle").Range("A1") - CDate("00:00:01")
If ThisWorkbook.Worksheets("Eingabetabelle").Range("A1") 0 Then
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "Zeitmakro"
Else
ThisWorkbook.Close True 'speichern
' Meldung bei Excel immer in Vordergrund
' Dim mldg
' mldg = MsgBox("Endzeit erreicht", 1048576, "Endzeit")
' 1048576 entspricht vbMsgBoxRtlReading
End If
End Sub
Sub MacrosON()
'Dieses Macro ausführen wenn der Code zwischen
'Application.EnableEvents = False und
'Application.EnableEvents = True
'angehalten wurde oder abstürzt
Application.EnableEvents = True
End Sub
gruss geri
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige