gibt es eine Möglichkeit, die laufende Uhrzeit auf einem Userform darzustellen?
Vielen herzlichen Dank für die Hilfe
Gruß
Thomas Weiss
gibt es eine Möglichkeit, die laufende Uhrzeit auf einem Userform darzustellen?
Vielen herzlichen Dank für die Hilfe
Gruß
Thomas Weiss
Sub Stopp()Sub Start()
Intervall = Now + TimeValue("00:00:01")
t = Format(Time, "hh:mm:ss")
UserForm1.Label1.Caption = t
Application.OnTime Intervall, "Start"
End Sub
On Error Resume Next
Application.OnTime Intervall, "Start", , False
End Sub
gruß Herbert
vielen herzlichen Dank für den Code, dieser funktioniert prima!
Gruß
Thomas
Um die aktuelle Uhrzeit auf einem Userform in Excel anzuzeigen, kannst du den folgenden VBA-Code verwenden. Dieser Code aktualisiert die Uhrzeit jede Sekunde.
ALT + F11
, um den VBA-Editor zu öffnen.Label1
.Sub Start()
Intervall = Now + TimeValue("00:00:01")
t = Format(Time, "hh:mm:ss")
UserForm1.Label1.Caption = t
Application.OnTime Intervall, "Start"
End Sub
Sub Stopp()
On Error Resume Next
Application.OnTime Intervall, "Start", , False
End Sub
UserForm1.Show
im Direktfenster eingibst oder einen weiteren Sub erstellen, der das Userform aufruft.Fehler: Das Label zeigt keine Uhrzeit an.
Fehler: Die Uhrzeit wird nicht aktualisiert.
Start
-Subroutine korrekt aufrufst, um die Aktualisierung zu starten.Falls du die laufende Uhrzeit ohne VBA-Makros anzeigen möchtest, kannst du auch die Funktion =JETZT()
verwenden. Diese zeigt die aktuelle Uhrzeit in einer Zelle an, aktualisiert sich jedoch nicht automatisch. Du kannst die Funktion an eine Zelle binden und mit F9
manuell aktualisieren.
Ein einfaches Beispiel für die Verwendung des Codes könnte so aussehen:
UserForm1
.Label1
hinzu.t = Format(Now, "dd.mm.yyyy hh:mm:ss")
1. Wie kann ich die Uhrzeit in einer anderen Zeitzone anzeigen?
Du kannst die Zeit um die entsprechende Stundenanzahl anpassen, indem du sie einfach zu der aktuellen Zeit addierst oder subtrahierst.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code für die Uhrzeitanzeige auf einem Userform sollte in allen modernen Excel-Versionen (ab Excel 2007) funktionieren.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen