excel nach Ablauf Zeit schließen
27.09.2016 14:37:40
Johann
Kann mir bitte einer verraten wie ich folgenden code umschreiben
Muss, damit die datei Fehlerspeicher.xlsm geschlossen wird und nicht die aktuell offene
Im Vordergrund Fehlererfassung.xlsm
Zur info. Der code steht in einem Modul in Fehlerspeicher.xlsm wo er
Eigentlich auch ausgeführt werden soll.
Dim altezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 2, 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, 2, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Anzeige