Supportnet / Forum / Tabellenkalkulation
Automaitsch laufende Uhr in Excel Dokument
Frage
Hallo
gibt es eine Möglichkeit, das in einem Excel Dokument eine Uhr zu sehen ist, die die aktuelle Uhrzeit anzeigt, und alleine weiter läuft ??
Danke für die Hilfe
Antwort 1 von Beverly
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
und in ein allgemeines Modul diesen
In Tabelle1 A1 wird die laufende Zeit angezeigt.
Bis später,
Karin
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
Antwort 2 von losvascos
@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 !!!
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 !!!
Antwort 3 von Beverly
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
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
Antwort 4 von losvascos
@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 :-))
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 :-))
Antwort 5 von losvascos
Alles klar....Kommando zurück !!! Es geht !!
Vielen Dank !!!!!
Vielen Dank !!!!!
Antwort 6 von Beverly
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
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