Hi,

ja, diese Möglichkeit gibt es. ;-)

Da ich aber annehme, dass du auch wissen möchterst wie es geht, hier die Antwort

Folgenden Code in das Codefenster von DieseArbeitsmappe

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

und in ein allgemeines Modul diesen

Option Explicit
' Code "Zeitmakro" von Hajo Ziplies,
Public DaEt As Date

Sub Zeitmakro()
    ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
    DaEt = Now + TimeValue("00:00:01")
    Application.OnTime DaEt, "Zeitmakro"
End Sub

In Tabelle1 A1 wird die laufende Zeit angezeigt.

Bis später,
Karin

@beverly

Hallo beverly

danke für deine Antwort. Da ich leider ein absoluter Anfänger in Excel bin, möchte ich dich noch bitten mir zu sagen, wie ich das Codefenster in meiner Arbeitsmappe öffnen kann, damit ich den Code eingeben kann. :-))

Nochmals danke !!!

Hi,

mit Alt+F11 gelangst du in den Editor. Links siehst du im Projektexplorer dein VBAProjekt. In der Ordnerstruktrur siehst du DieseArbeitsmappe. Mache darauf einen Doppelklick und kopiere den ersten Codeteil in das rechte Codefenster. Gehe dann in der Symbolleiste auf Einfügen -> Modul und kopiere den zweiten Codeteil in das Codefenster. Speichere die Arbeitsmappe, schließe und öffne sie wieder und schon läuft die Uhr.

Bis später,
Karin

@beverly

Hallo..habe ich gemacht...bekomme jetzt eine Fehlermeldung
"Laufzeitfehler "9".

Und mir wird dieser Teil gelb angezeigt:

ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss"

Wenn du mir nochmal helfen könntest wäre das echt Klasse :-))

Alles klar....Kommando zurück !!! Es geht !!

Vielen Dank !!!!!

Hi,

wie heißt deine Tabelle, in der die Uhr angezeigt werden soll? Im Beispiel heißt sie Tabelle1. Oder ist die Tabelle geschützt? Die Klammer am Ende der Zeile ist in deinem Code vorhanden?

Bis später,
Karin