Option
Explicit
Public
Const
dIntervallSek = 1
Public
dNextRun
As
Double
Public
bStopRun
As
Boolean
Sub
Makro38()
Dim
wkb
As
Workbook
Dim
blnOpen
SendKeys
"{F9}"
,
True
Ende:
End
Sub
Public
Sub
RunMakro()
If
bStopRun
Then
Exit
Sub
Call
Makro38
dNextRun = Now() + TimeSerial(0, 0, dIntervallSek)
Application.OnTime dNextRun,
"RunMakro"
Application.StatusBar =
"Makro38 läuft wieder um "
& Now() + TimeSerial(0, 0, dIntervallSek)
End
Sub
Public
Sub
StopMakro()
bStopRun =
True
If
dNextRun <> 0
Then
Application.OnTime dNextRun,
"RunMakro"
, ,
False
Application.StatusBar =
"Makro38 ist gestoppt!"
dNextRun = 0
End
Sub