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

On Time: Wie beenden?

On Time: Wie beenden?
23.10.2002 11:42:59
Klaus
Wie kann ich folgende On Time Prozedur wieder aufheben?

NextSpeichern = Now + TimeValue("00:00:45")
Application.OnTime NextSpeichern, "Neu_öffnen"

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

Betreff
Datum
Anwender
Anzeige
Re: On Time: Wie beenden?
23.10.2002 12:02:03
Hajo_Zi
Hallo Klaus

da gast Du schon recht das aufhenenist kompliziert. Ich mache immer es immer so das die Zeuit auf eine Variable geschrieben wird. Hier mal ein Beispiel.


in ein modul
Option Explicit
Public ET As Variant

Sub Zeitmakro()
'   unter Anleitung von KlauCh
    Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
    ET = Now + TimeValue("00:00:01")
    Application.OnTime ET, "Zeitmakro"
End Sub

in DieseArbeitsmappe
Option Explicit

Private Sub Workbook_Open()
    Zeitmakro
End Sub

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

 

     Code eingefügt mit Syntaxhighlighter 1.16

Gruß Hajo

Anzeige
Re: On Time: Wie beenden?
23.10.2002 14:02:56
Martin
Hallo Klaus,

so eine Frage hatte ich vor einigen Wochen auch schon einmal gestellt. Hier die Lösung, die hervorragend klappt:

Dim blnStopp As Boolean
Sub Beginn()
blnStopp = False
NextSpeichern = Now + TimeValue("00:00:45")
Application.OnTime NextSpeichern, "Neu_öffnen"
End Sub

Sub Neu_öffnen()
If Not blnStopp Then
... dein Code
Else
Exit Sub
End If
End Sub

Sub Ende()
blnStopp = True
End Sub

Gruss,
Martin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige