Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige