Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Uhrzeit auf Userform anzeigen?

Forumthread: Uhrzeit auf Userform anzeigen?

Uhrzeit auf Userform anzeigen?
23.09.2002 19:53:27
Thomas Weiss
Hallo NG,

gibt es eine Möglichkeit, die laufende Uhrzeit auf einem Userform darzustellen?

Vielen herzlichen Dank für die Hilfe

Gruß
Thomas Weiss

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Uhrzeit auf Userform anzeigen?
23.09.2002 20:40:40
Herbert
Uhrzeitanzeige auf einem Label einer Userform:

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

  
gruß Herbert

Anzeige
Re: Uhrzeit auf Userform anzeigen?
24.09.2002 14:09:32
Thomas Weiss
Hallo Herbert,

vielen herzlichen Dank für den Code, dieser funktioniert prima!

Gruß
Thomas

;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Uhrzeit auf Userform in Excel anzeigen


Schritt-für-Schritt-Anleitung

Um die aktuelle Uhrzeit auf einem Userform in Excel anzuzeigen, kannst du den folgenden VBA-Code verwenden. Dieser Code aktualisiert die Uhrzeit jede Sekunde.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Userform hinzu (Rechtsklick im Projektfenster -> Einfügen -> Userform).
  3. Füge ein Label auf das Userform hinzu, um die Uhrzeit anzuzeigen. Nenne das Label Label1.
  4. Füge den folgenden Code im Userform-Modul ein:
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
  1. Starte das Userform, indem du UserForm1.Show im Direktfenster eingibst oder einen weiteren Sub erstellen, der das Userform aufruft.

Häufige Fehler und Lösungen

  • Fehler: Das Label zeigt keine Uhrzeit an.

    • Lösung: Stelle sicher, dass der Name des Labels im Code mit dem Namen im Userform übereinstimmt.
  • Fehler: Die Uhrzeit wird nicht aktualisiert.

    • Lösung: Vergewissere dich, dass du die Start-Subroutine korrekt aufrufst, um die Aktualisierung zu starten.

Alternative Methoden

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.


Praktische Beispiele

Ein einfaches Beispiel für die Verwendung des Codes könnte so aussehen:

  1. Erstelle ein neues Userform mit dem Namen UserForm1.
  2. Füge ein Label mit dem Namen Label1 hinzu.
  3. Verwende den oben angegebenen VBA-Code.
  4. Führe das Userform aus, um die laufende Uhrzeit in Echtzeit zu sehen.

Tipps für Profis

  • Wenn du die Uhrzeit auch das Datum anzeigen möchtest, kannst du den Format-String im Code anpassen:
t = Format(Now, "dd.mm.yyyy hh:mm:ss")
  • Um die Uhrzeit dynamisch in anderen Anwendungen wie HTML anzuzeigen, kannst du eine Excel-Datei erstellen und die Daten in ein HTML-Dokument exportieren.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige