Office: (Office Version unbekannt) Excel beenden wenn zeit erreicht ist.

Hallo, ich habe da ein Problem was ich als Anfänger nicht lösen kann.
Mir geht es darum eine Excell Tabelle wenn geöffnet ist mehrmals am Tag zu festen Uhrzeiten zu speichern und schließen.

Bin wirklich diesbezüglich ein Anfänger und bräuchte von erfahrenen Nutzern Hilfe.

Danke

 

Hallo ilkaskim,

als reines Excel-Makro ist das, soweit ich weiß, nicht möglich.
Du könntest Dir einen wiederkehrenden Task in die Aufgabenplanung setzen, der die Aufgabe entsprechend erledigt.

Aber es ist immer kritisch, eine Excel-Tabelle automatisch zu schließen. Früher oder später zerschießt Du damit die Arbeit von dir oder einem Kollegen.

Gruß,
Lutz

 

Hallo,

schau mal hier, selbst nicht getestet:

PHP:

 
Dim altezeit 
Private Sub Workbook_Open() 
On Error Resume Next 
neuezeit = Time + TimeSerial(0, 5, 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, 5, 0) 
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False 
altezeit = neuezeit 
Application.OnTime neuezeit, "Schließen" 
End Sub 
 
Modul1: 
 
Sub Schließen() 
ThisWorkbook.Close savechanges:=True 
End Sub 

 

Hallo Fred0,

da hab ich doch wieder was gelernt...

Vielen Dank,
Lutz

 

Hallo Fred0,
Kann ich bei diesem Code auch eine feste Zeit angeben sagen wir mal 13:00 uhr?

 

Schau mal hier:
http://www.online-excel.de/excel/singsel_vba.php?f=133