application.ontime
13.02.2008 14:47:41
Holger
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
Anzeige