Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktuelle Uhrzeit in Userform

Aktuelle Uhrzeit in Userform
27.03.2022 16:10:04
Nader
Hallo Zusammen,
Folgender Code:

Private Sub UserForm_Activate()
Do
DoEvents
TextBox1.Value = Time
TextBox2.Value = Date
Loop
End Sub
Beim ersten Zugriff auf die Userform (Menüsteuerung) funktioniert die Uhranzeige, wenn ich aber von dieser Userform heraus eine Subroutine (Dateneingabe) aufrufe und dann wieder zu Userform (Menüsteuerung) zurückkehre, bleibt die Uhr stehen und läuft nicht mehr weiter!
Ich habe zur Aktualisierung folgenden Code benutzt aber leider ohne Erfolg:

Private Sub WorkSheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ThisWorkbook.RefreshAll
Application.EnableEvents = True
End Sub
Kann mir Jemand vielleicht weiter helfen?
Ich bedanke mich im Voraus.
Viele Grüße
Nader

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuelle Uhrzeit in Userform
27.03.2022 16:40:45
onur
Du weisst schon, dass dein "Code" die CPU voll auslastet - oder?
Schreib mal vor Loop
Me.repaint
AW: Aktuelle Uhrzeit in Userform
27.03.2022 16:54:19
Nader
Hallo onur
Habe ausprobiert, aber "Me.Repaint" in einer Do....Loop-Schleife bewirkt leider einer "Endlos-Schleife"
Trotzdem vielen Dank
Gruß Nader
AW: Aktuelle Uhrzeit in Userform
27.03.2022 16:55:51
onur
Du hast doch schon die Endlosschleife selbst gebaut.
AW: Aktuelle Uhrzeit in Userform
27.03.2022 17:07:29
onur 

Private Sub UserForm_Activate()
Dim ti
Do
DoEvents
TextBox1.Text = Time
TextBox2.Text = Date
Me.Repaint
ti = Timer
While Timer - ti

AW: Aktuelle Uhrzeit in Userform
27.03.2022 19:59:18
Nader
Hi onur,
leider hat auch Das nicht funktioniert!
Es ist unbegreiflich, weil es in allen anderen Userformen funktioniert tadellos, nur bei der Userform "Menüsteuerung" versagt diese Routine!
Falls du andere Vorschläge hast, würde ich sie gerne ausprobieren!
Gruß Nader
Anzeige
AW: Aktuelle Uhrzeit in Userform
27.03.2022 20:00:41
onur
Nicht solange du deine Datei nicht postest, das es bei MIR funktioniert.
AW: Aktuelle Uhrzeit in Userform
27.03.2022 16:46:10
Nepumuk
Hallo Nader,
teste mal:

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
TextBox2.Value = Date
Do
TextBox1.Value = Time
DoEvents
Repaint
Call Sleep(500)
Loop
End Sub
Gruß
Nepumuk
AW: Aktuelle Uhrzeit in Userform
27.03.2022 17:14:21
Nader
Hallo Nepumuk,
Habe ausprobiert aber leider ohne Erfolg.
1)-Hat sogar bewirkt, dass der Bildschirm sehr stark flackert!
2)-Nach dem Rückkehr zu Userform (Menüsteuerung), bleibt die Uhr weiterhin stehen!
Das ist unbegreiflich, denn in allen anderen Userformen, funktioniert die Uhr, nur nicht beim Rückkehr von anderen Userformen zur Menüsteuerung!
Ich danke dir für deine Hilfsbereitschaft, falls du noch weitere Vorschläge hast, würde ich sie sehr gerne ausprobieren.
Ich habe sehr viele Varianten versucht, aber leider das Ergebnis war jedes Mal "Negativ"!
Gruß Nader
Anzeige
AW: Aktuelle Uhrzeit in Userform
27.03.2022 17:15:43
onur
Ich habe dir doch eben gepostet, wie es klappt!
AW: Aktuelle Uhrzeit in Userform
27.03.2022 17:58:40
Daniel
Hi
So vielleicht:
- die Userform muss nicht-modal sein.
- ein einem allgemeinen Modul

Option Explicit
Public NächsterAufruf as Date
Sub Uhrzeit()
Userform1.TextBox1.Value = Time
Userform1.TextBox2.Value = Date
NächsterAufruf = Now + TimeSerial(0, 0, 1)
Application.Ontime NächsterAufruf, "Uhrzeit"
End Sub
- Activate-Event der Userform:

Application.Ontime Now, "Uhrzeit"
- im Terminate-Event der Userform (also dem Event, das beim Schließen der Userform ausgeführt wird)

If NächsterAufruf > Now then Application.Ontime NächsterAufruf, " Uhrzeit", Scheduler:=False
Generell stellt sich aber die Frage, warum du Datum und Uhrzeit in der Userform anzeigen lässt, wenn diese sowieso schon vom Betriebssystem in der Taskleiste angezeigt wird.
Gruß Daniel
Anzeige
AW: Aktuelle Uhrzeit in Userform
27.03.2022 21:26:23
Nader
Hallo Daniel,
leider hat das nicht funktioniert, aber der Vorschlag von "Nepumuk" war erfolgreich.
Ich danke dir vielmals für deine Hilfsbereitschaft und Geduld!
Wünsche die einen sehr schönen Abend noch und viel Erfolg!
Gruß Nader

305 Forumthreads zu ähnlichen Themen

Zelle in Uhrzeit
Mark

Hallo.
Ich kriege Daten als CSV-Datei und dort sind in einer Spalte leider einige Zellen benutzerdefiniert (als Datum MMMJJ). Andere sind Standard und dort wird mir eine Uhrzeit ausgewiesen (z.B. 6.00).
Nun möchte ich die Zellen die die benutzerdefinierte Formatierung haben gerne möglic...
26.06.2009 07:46:34
Thread-ID: 1084320
5 Beiträge
Anzeige
Datumfeld im Makro nur als tt.mm.JJJJ ohne Zeit
walter

Moin moin,
ich habe ein Makro welches im Durchlauf nen Datum setzt [Cells(1, 2).Value = Date] und damit entsprechend weiterarbeitet. Nun scheint es so zu sein, daß in diesem Makrodatum auch die Uhrzeit des Makrolaufes mitgezogen wird, welches, wenn das Makro zu spät gestartet wird, zu falsc...
07.10.2009 14:29:05
Thread-ID: 1107833
3 Beiträge
Leeren von Zellen die keine Uhrzeit enthalten
Zellen

Hallo liebe xls.-Cracks,
ich benötige einen VBA-Strang, mit dem ich aus einer bestehenden Liste die Zeilen entfernen kann, in denen in der Spalte C (z.B.) keine Uhrzeit steht. Es ist nämlich bei dem Zugrunde liegenden Datenbestand möglich, das einzelne Datensätze völlig aus der Art schlage...
08.01.2010 13:57:27
Thread-ID: 1128263
7 Beiträge
Anzeige
Zeitdifferenz ohne Angabe des Datums | Herbers Excel-Forum
JDommi
Hallo zusammen!
Ich versuche gerade verzweifelt eine Zeitdifferenz per Formel in eine Arbeitsmappe zu integrieren.
Ich brauche nur die Angabe in Stunden und Minuten, allerdings fehlt jegliche Angabe des aktuellen Datums.
Beispiel:
Soll....10:24......23:54......11:00......00:02.........
23.01.2010 22:04:18
Thread-ID: 1132393
3 Beiträge
gehe zu einer Zelle in der aktuellen Zeile
Holger

Hallo mit einander
Ich habe folgendes Problem
im bereich f6- bis f250 sind Datumswerte
in der 5 Zeile sind auch Datumswerte
Bsp
----------------Zeile 6 -------------01.06. --- 02.06 ---- 03.06
Spalte F
12.6.2010
13.6.2010
03.6.2010 -----------...
30.10.2010 20:33:37
Thread-ID: 1184563
3 Beiträge
Uhrzeit in einer Zelle automatisch Fett machen
Marco

Hallo miteinander,
ich versuche gerade angestrengt eine Möglichkeit zu finden um folgendes Problem zu lösen:
In einer Zelle (von vielen) wird immer ein Datum mit Uhrzeit eingegeben. Nun soll die Uhrzeit immer Fett hervorgehoben werden, nachdem man die Eingabe bestätigt hat. Also nicht p...
24.06.2011 23:27:42
Thread-ID: 1219596
10 Beiträge
Datum ohne Zeitangabe
Hans

Hallo Leute .. ich habe ein Problen mit dem Datum
Aus einer externen Datei verwende ich ein Datum das mit der genauen Zeit verknüpft ist.
Es schaut z.B. wiefolgt aus :
03.11.2011 16:17:29
Wie kann ich das Datum umwandeln das es nur noch im Format TT.MM.JJJJ ist.
Wenn ich...
11.11.2011 17:23:26
Thread-ID: 1237529
8 Beiträge
Uhrzeit in Zelle
bernie

Hallo,
habe gerade einen Beitrag gefunden in welchem die Uhrzeit in einer Excel-zelle wiedergegeben werden kann.
Das Makro läuft perfekt - habe nur das problem, daß ich die Exceltabelle- während das Makro läuft - nicht beenden kann.
Hat da jemand eine Idee?
Im voraus besten D...
20.12.2011 14:20:15
Thread-ID: 1243019
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
2
6
1
2
2
9
7
1
6
2
1
2
4
3
32
7
4
5
11
5
7
2
1