Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige