Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Uhr, zehntel Sekunde genau in VBA/Excel!

Forumthread: Uhr, zehntel Sekunde genau in VBA/Excel!

Uhr, zehntel Sekunde genau in VBA/Excel!
13.10.2005 16:18:43
Jan
Hallo!
Hat jemand eine Idee oder sogar etwas Code, mit dem ich eine Uhr in VBA (Excel) implementieren kann, die auch 10. Sekunden anzeigt und sich aktualisiert?!
Danke,
Jan
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhr, zehntel Sekunde genau in VBA/Excel!
13.10.2005 16:37:50
Matthias
Hallo Jan,
verwende die Timer-Funktion:

'Code abbrechen mit Strg+Pause!
Sub test()
Dim start As Single, anzeige As String
start = Timer
Do
anzeige = Format(Timer - start, "0.0")
If Application.StatusBar <> anzeige Then Application.StatusBar = anzeige
DoEvents
Loop Until False
End Sub

Gruß Matthias
Anzeige
AW: Uhr, zehntel Sekunde genau in VBA/Excel!
13.10.2005 16:54:00
Jan
Klasse, das ist schonmal gar nicht schlecht. Kann man das noch irgendwie in ne "normale" Uhr integrieren, so dass ich ne Anzeige hh:mm:ss:msms habe?! Ich bin leider totaler Newbie :-)!
Danke,
Jan
AW: Uhr, zehntel Sekunde genau in VBA/Excel!
13.10.2005 17:21:51
Matthias
Hallo Jan,
ein Gestöpsel, aber ws besseres fällt mir nicht ein:

'Code abbrechen mit Strg+Pause!
Sub test()
Dim anzeige As String, ms As String, i  As Long
Dim zeit As Double
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

Gruß Matthias
Anzeige
AW: Uhr, zehntel Sekunde genau in VBA/Excel!
14.10.2005 10:43:10
Jan
Ahhh ... Klasse, dankeschön! Ach wenn ich VBA doch schon so beherrschen würde :-)!
Schönes Wochenende,
Jan
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige