Einfache Uhr um eine "EInheit" erweitern, wie?
09.01.2006 17:12:10
Jan
Kann mir das kurz jemand sagen, habs schon die ganze Zeit versucht, aber gerade n Blackout?!
Danke,
Jan
Sub uhr()
' Variable definieren
Dim anzeige As String
Dim ms As String
Dim i As Long
Dim zeit As Double
' Schleife ausführen ...
Do
' ms holen
ms = Right(Format(Timer - Int(Timer), ".0"), 2)
' String zusammenbauen
anzeige = Time() & ms
' String in Zelle A1 ausgeben
' Vorher den Zellenwert abfangen um flackern zu unterdrücken
If Cells(1, 1).Value <> anzeige Then
Cells(1, 1).Value = anzeige
End If
DoEvents
' Schleife laufen lassen
Loop Until False
End Sub