Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Steuerelement TextBox



Excel-Version: 8.0 (Office 97)

Betrifft: Steuerelement TextBox
von: Michael
Geschrieben am: 31.05.2002 - 22:12:33

Hallo
Wenn ich in einer Tabelle aus der Steuerelement-Toolbox eine
TextBox nehme und ich will dort die laufende Uhrzeit anzeigen
wie mach ich das und wohin schreib ich dies.
Anfänger VBA-Kenntnisse vorhanden.

Mit bestem Dank im vorraus


  

Würde ich nicht tun,...
von: Rainer
Geschrieben am: 01.06.2002 - 01:01:09

Hallo Michael,

... du belastest EXCEL mit einer kontinuierlichen Aufgabe und kannst kaum noch vernünftig arbeiten, weil das Makro in einer Endlosschleife läuft.
Du kannst zwar mit "DoEvents" in der Schleife Benutzereingaben abfangen, aber eben nur jede Sekunde. Alle anderen Aufgaben müssen sich dem Makro unterordnen

Ein Ansatz:

Private Sub TextBox1_Change()
Timerstart:
Me.TextBox1.Value = Format(Now(), "hh:mm:ss")
Application.Wait (Now() + TimeValue("00:00:01"))
DoEvents
GoTo Timerstart:
End Sub

  

Re: Würde ich nicht tun,...
von: L.Vira
Geschrieben am: 02.06.2002 - 01:04:46

Wenn du das mit wait machst, kannst du überhaupt nicht mehr mit Excel arbeiten, eh das Makro beendet wird. Wenn schon dann mit Application.OnTime

 

Beiträge aus den Excel-Beispielen zum Thema "Steuerelement TextBox"