Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1036to1040
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
Inhaltsverzeichnis

Digitaluhr

Digitaluhr
10.01.2009 14:45:00
Ralf
Hallo Experten!
Ich möchte in jedes Arbeitsblatt einer Arbeitsmappe eine Digitaluhr mit Stunden-, Minuten- und Sekundenanzeige einfügen. Formel =Jetzt() ist ungünstig da keine ständige Aktualisierung. Eine VBA Lösung würde ich bevorzugen. Ich hoffe ihr könnt mir helfen.
Danke Ralf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Digitaluhr
10.01.2009 15:00:00
Tino
Hallo,
hier mal ein Beispiel
kommt als Code in DieseArbeitsmappe
Option Explicit 
 
Private Sub Workbook_Activate() 
Call StartUhr 
End Sub 
Private Sub Workbook_Deactivate() 
On Error Resume Next 
Application.OnTime Zeit, "StartUhr", Zeit + TimeSerial(0, 0, 2), False 
End Sub 
 

kommt in ein Modul

Option Explicit 
Public Zeit As Date 
Sub StartUhr() 
Range("A1") = Format(Now, "hh:mm:ss") 
Zeit = Now + TimeSerial(0, 0, 1) 
Application.OnTime Zeit, "StartUhr", Zeit + TimeSerial(0, 0, 2) 
End Sub 


Gruß Tino

Anzeige
AW: Digitaluhr
10.01.2009 20:21:00
Ralf
Vielen Dank Tino und Hajo, genau das hab ich gesucht.
Gruß Ralf
AW: Digitaluhr
10.01.2009 20:21:00
Ralf
Vielen Dank Tino und Hajo, genau das hab ich gesucht.
Gruß Ralf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige