Supportnet / Forum / Tabellenkalkulation

Hallo! Über "applicateion.ontime" lasse ich eine Datei nach vorgegebener Zeit wieder schließen. Wenn die Datei vor Ablauf der Zeit von einem Benutzer geschlossen wird, öffnet sich diese bei Erreichen der Zielzeit kurz und schließt sich dann wieder. [code] Option Explicit Public TIME As Variant Sub Auto_Open() TIME = Now + TimeValue("00:00:30") 'Zeit,bis Datei geschlossen wird Application.OnTime TIME, "schliessen" End Sub Sub schliessen() ActiveWorkbook.Save ActiveWorkbook.Close End Sub [/code] Wie kann ich das abstellen? VG Jones

Hi Jones,

wenn Du nachfolgenden Code in das VBA Projekt DieseArbeitsmappe kopierst, sollte das Problem behoben sein.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime EarliestTime:=TIME, Procedure:="schliessen", Schedule:=False
End Sub

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• beliebige txt Datei in EXCE Datei einlesen
• Datei über Makro öffnen & Werte aus geöffneter Datei kopieren
• Datei in andere Datei als Tabellenblatt hinterlegen
• Von Datei A nach Datei B Werte übergeben