Option Explicit
Public VaEt As Variant
Public DaZeit As Date
Sub Zeitmakro()
'**************************************************
'* H. Ziplies *
'* 18.02.04 *
'* erstellt von Hajo.Ziplies@web.de *
'*
http://home.media-n.de/ziplies/ *
'* *
'**************************************************
ThisWorkbook.Worksheets("Lagerbestand aktuell").Range("a1") = ThisWorkbook.Worksheets("Lagerbestand aktuell").Range("a1") - CDate("00:00:01")
If ThisWorkbook.Worksheets("Lagerbestand aktuell").Range("a1") <> 0 Then
VaEt = Now + TimeValue("00:00:01")
Application.OnTime VaEt, "Zeitmakro"
Else
ThisWorkbook.Close True 'speichern
' Meldung bei Excel immer in Vordergrund
' Dim mldg
' mldg = MsgBox("Endzeit erreicht", 1048576, "Endzeit")
' 1048576 entspricht vbMsgBoxRtlReading
End If
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
End Sub