Habe folgende Uhr:
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
Die Uhr wird im Excel-Blatt so dargestellt: HH:MM:SS,? Kann mir kurz jemand sagen was die letzten beiden Stellen anzeigen? Sind das Hundertstel oder Millisekunden?!
Danke,
Jan