Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call run_schleife
End Sub
Private Sub Workbook_Open()
Call stopp_schleife
End Sub
In ein Modul:
Dim Zeit As Date
Dim MySheet As Worksheet
Sub run_schleife()
'Den Namen des Tabellenblattes angeben
Set MySheet = Worksheets("Tabelle1")
'#####################################
Zeit = Now + TimeValue("00:00:02")
Application.OnTime Zeit, "run_schleife"
MySheet.Calculate
Set MySheet = Nothing
End Sub
Sub stopp_schleife()
On Error Resume Next
Application.OnTime Zeit, "run_schleife", , False
End Sub
Das Programm wird gestartet beim öffnen der Datei und beim schließen wieder gestoppt.
Gruß Jens