Timer
14.03.2007 13:26:17
Sophie
folgendes schwebt mir im Kopf, weiß bloß nicht wie ich dieses umsetzen kann.
Darf max. 10 h arbeiten, nach 10 h muß ich ausstempeln.
Nun meine Idee, wenn ich mir irgendwie einen Timer programmieren könnte, der wenn ich ihn starte eine Uhrzeit verlangt, (wann ich eingestempelt habe) und mir dann irgendwie nach 10 h (vielleicht 5 min davor) per akustisches Signal bescheid gibt, daß ich ausstempeln muß.
Genial wäre es natürlich, wenn ich eine kurze übersicht (Aktuelle Zeit, Endzeit, ablaufender Timer)angezeigt bekäme, egal in welcher Anwendung ich mich befinde.
Ist dies irgendwie denkbar bzw. umsetzbar?
Diesen Code habe ich aus dem Archiv, er funktioniert, ich könnte ja dieses anstatt auf der Statusbar in einer Userform anzeigen lassen, aber sie wird glaube ich nur bei geöffneter Excel-Mappe angezeigt, oder?
Sub test()
Dim anzeige As String, ms As String, i As Long
Dim zeit As Double
Application.DisplayStatusBar = True
Do
ms = Right(Format(Timer - Int(Timer), ".0"), 2)
anzeige = Time() & ms
If Application.StatusBar anzeige Then 'gegen Flackern
Application.StatusBar = anzeige
End If
DoEvents
Loop Until False
End Sub
Vielen Dank für Euere Hilfe.
Gruß
Sophie
Anzeige