Exceltabelle nach bestimmter Uhrzeit schließen
08.09.2016 10:26:50
Jonny
Ich möchte das die Exceltabelle immer um 07:57 gespeichert und geschlossen wird.
Das folgende VBA funktioniert soweit recht gut. Nur ist es jetzt so das die Exceltabelle nicht _
mehr manuell geschlossen werden kann. D.h. das ich die Tabelle nur geschlossen bekomme wenn ich Excel kommplett beende.
Kann mir hier jemand weiterhelfen
Modul Modul1
Sub Speicher_und_Schließe()
Dim iStunde, iMinute As Integer
iStunde = 7
iMinute = 57
If Hour(Time) = iStunde And Minute(Time) = iMinute Then
ThisWorkbook.Save
ThisWorkbook.Close
Else
Application.OnTime Now + TimeValue("00:01:00"), "Speicher_und_Schließe"
End If
End Sub
Microsoft Excel Objekt DieseArbeitsmappe
Private Sub Workbook_Open()
Call Speicher_und_Schließe
End Sub