Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

application.ontime

application.ontime
13.02.2008 14:47:41
Holger
Hallo,
folgendes Makro sorgt für das Schließen der Datei nach 10 Minuten. wie kann ich verhindern, dass das Ganze weiterläuft, wenn die Datei geschlossen ist. im Moment läuft das so, dass sich die Datei von allein wieder öffnet und dabei auch noch alle anderen offenen Mappen schließt.
unter "diese Arbeitsmappe":
Dim altezeit

Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 10, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 10, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub


Makro:
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: application.ontime
13.02.2008 14:56:04
Rudi
Hallo,
setze das
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
in eine Workbook_beforeclose-Prozedur.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: application.ontime
13.02.2008 15:27:00
Holger
so ähnlich? das geht aber irgendwie nicht...
Dim altezeit

Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 0, 60)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 0, 60)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
End Sub


Anzeige
AW: application.ontime
13.02.2008 21:55:00
Daniel
HI
du musst die beiden Variablen altezeit und neuezeit als PUBLIC im allgemeinen Modul deklarieren:

Option Explicit
Public altezeit
Public neuezeit
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub


noch besser wäre es, wenn du den Variablen bei der Deklaration gleich den richtigen Datentyp (Date) zuweisen würdest.
Gruß, Daniel

AW: application.ontime
14.02.2008 15:13:00
Holger
es funktioniert doch. Danke!

54 Forumthreads zu ähnlichen Themen


Hallo,
ok, mit Application.OnTime #12:06:00 PM#, "Makro" startet das Makro um 12:06 Uhr. Soweit, so gut. Was aber muß ich hinzufügen, wenn es nur Mo-Fr starten soll und nicht am Wochenende? Gibt es dafür eine Lösung?
danke!
Susanne
Anzeige

Hallo,
Durch eine Steuerelement angestupst wird meine Datei alle 15 Minuten gespeichert.
Das Modul sieht so aus:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("0:15:00") ' Hi...

Hallo Forum,
ich habe eine Excel-Tabelle, die beim Starten direkt eine UserForm (Show Modal = True) startet. Diese Tabelle soll rund um die Uhr geöffnet sein. Zu 3 verschiedenen Uhrzeiten möchte ich aus der UserForm heraus eine Prozedur starten. Ist das möglich? Wenn ja, wie?
Ich hoffe,...
Anzeige

Hallo Zusammen
Ich benutze folgende Funktion um eine Datei periodisch zu speichern
Application.OnTime Now + TimeValue("00:15:00"), "SU_Periodisch_Speichern"
will ich aber diesen Prozess unterbrechen mit:
Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="SU_Pe...

HalloIch möchte täglich zu einer bestimmten Uhrzeit den wert einer Zelle auslesen und in einer anderen Zelle Speichern.ZB: [456546] Zelle A1 die ausgelesen werden soll22:00 [=A1]
23:00 [=A1]
00:00 [=A1]usw.
der wert in der Zelle ändert sich ca. alle 60 sekunden, und ich möchte zu jede...
Hallo,
ich habe ein kleines Problem mit einigen Application.OnTime ´s.
Ich habe ein Userform in den ich folgende Daten eintrage.
1 Checkbox ob aktiv oder nicht
1 Textfeld für Dateiname
3 Textfelder für die Startzeit (Format hh:mm:ss)
3 Felder wie lange die Datei ausgeführt w...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige