für was steht die Zahl?
24.03.2009 08:05:10
Thomas
Kann mir jemand sagen, für was das die Zahl 1048576 steht?
MFG Thomas
Option Explicit
Public DaEt As Date ' nächster Start des Makros
Public Const DaZeit As Date = "00:00:01" ' Zeitabstand Blinken
Sub Zeitmakro()
With ThisWorkbook.Worksheets("Tabelle1")
If .Range("A1") > DaZeit Then
.Range("A1") = .Range("A1") - DaZeit
.Range("A1").NumberFormat = "[h]:mm:ss"
DaEt = Now + DaZeit
Application.OnTime DaEt, "Zeitmakro"
Else
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 0
' Meldung bei Excel immer in Vordergrund
MsgBox "Endzeit erreicht", 1048576, "Endzeit"
End If
End With
End Sub