Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
168to172
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
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit dem Stoppen einer ONTIME-Routine

Problem mit dem Stoppen einer ONTIME-Routine
22.10.2002 11:54:13
Gerd
Hallo zusammen!

Ich möchte in 1-Sekunden-Abstand testen, ob eine CSV-Datei aktualisiert wurde. Das mache ich mit FILEDATETIME().
Falls eine Aktualisierung stattgefunden hat, soll ein BEEP ertönen. Das ist soweit auch kein Problem.
Nun soll aber nach dem BEEP die 1-Sekunde-Abfrage-Routine für 30 Sekunden stoppen, ehe wieder überprüft werden soll, ob eine Dateiaktualisierung stattgefunden hat.
Und da ist mein Problem. Ich weiss nicht, wie ich die ONTIME-Anweisung für 30 Sekunden unterbrechen bzw. stoppen kann und dann erneut aufrufen.

Kann mir da jemand einen Tipp geben ?

Danke für alle Hinweise!

Viele Grüße,
GERD

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

Betreff
Datum
Anwender
Anzeige
Re: Problem mit dem Stoppen einer ONTIME-Routine
22.10.2002 12:04:42
Hajo_Zi
Hallo Gerd

Das Anhalten der OnTime Anweisung ist meiner Meinung nach nicht so einfach. Der beste Weg ist die Startzei auf eine Variable schreiben. Mal ein Code der in Zelle A1 die aktuelle Zeit anzeigt.


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: Problem mit dem Stoppen einer ONTIME-Routine
22.10.2002 12:13:01
Gerd
Hallo Hajo,

danke Dir! Ich werde es mal bei mir einbauen.
Ich habe das Forum nach dem Stoppen der Ontime durchsucht und sehe, dass sehr viele damit PRobleme haben.
Jetzt habe ich einen Beitrag gefunden, der VBScript mit ins SPiel bringt. Kann man solche Aufgaben (Datei überprüfen) besser mit VBScript machen und kann man es ohne Probleme in Excel einbinden ?

Gruß
Gerd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige