sekunden in echtzeit zählen.

hallo ich hab da ein problem. manche von euch kennen es schon eil ich es in einem anderen thema schon mal erwähn hab. da mir aber bis jetzt immer geholfen wurde geb ich auch jetzt die hofnung nicht auf . danke noch mal an alle helfer.
so jetzt zum thema, ich möchte im exel einen tag in echtzeit in sekunden anzeigen lassen. allso so das ich jede sec. einzeln hochzälen sehe. die frage ist wie macht mann das???? ich hab schon all nein nicht gerade großes wissen in exel angewant aber in echtzeit wird es nicht angezeigt nur wenn ich die tabelle schliese und wieder öfne wird es akzualiesiert. allso ich bin für jede hilfe dankbar. ach ja es sollte nach möglichkeit auch unter open offis laufen. ist aber nicht die voraussätzung.
danke im vorraus

 

Hi,

in einem allgemeinen Modul

Code:

Option Explicit
Public DaEt As Date

' Ursprungscode für das "Zeitmakro" ist von Hajo Ziplies
' http://hajo-excel.de/
Sub Zeitmakro()
    DaEt = Now + TimeValue("00:00:01")
    Worksheets("Tabelle1").Cells(1, 1) = DaEt
    Application.OnTime DaEt, "Zeitmakro"
End Sub

und im Klassenmodul DieseArbeitsmappe

Code:

Option Explicit

Private Sub Workbook_Open()
    Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub

Zelle A1 formatieren als Uhrzeit. Speichern -> Schließen -> Öffnen der Arbeitsmappe -> in A1 wird die aktuelle Zeit im Sekundentakt angezeigt.