Ständig aktuelle Uhrzeit --> Hajo?!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ich verstehe zwar nicht weshalb .. aber wenn man das "Format" wegnimmt, dann läuft das Makro korrekt. Die Zelle kann selbst im Format HH:MM:SS formatiert werden, dann siehts auch wie ne Uhrzeit aus.

Sub Zeitmakro()
'   unter Anleitung von KlauCh
'Debug.Print Time
ThisWorkbook.Worksheets("Tabelle1").Range("C1") = Time
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "Zeitmakro"
End Sub

Wegen der Ironie: Wenn du schon länger hier im Forum bist und schon öfters Hilfe bekommen hast, hast du vielleicht auch ein paar Beiträge ausser deinen eigenen gelesen. Dann weisst du auch, dass fehlerhafte Anfragen oft und gerne ironisch beantwortet werden (Exemplarisch: F:"Mein Code geht nicht!" A:"Der Fehler ist in Zeile 5" F:"Du kennst doch meinen Code gar nicht, woher weisst du das?").
Geh nochmal in dich und frag dich, wie viel Sinn es gemacht hat eine leere Exceldatei mit Bildern von Code hochzuladen :-) Ist nicht böse gemeint. Ich hoffe, dein Problem mit o.g. Korrekturen gelöst zu haben.
Grüße,
Klaus M.vdT.

Tom,
das Zeitmakro an sich ist nicht das Problem ...
Was ich dir sagen kann ist: wenn du allen Code in der Tabelle "Leinwand" löscht oder auskommentierst, dann geht das Zeitmakro wieder. Beim "aktivieren" des Zeitmakros hängt Excel sich an diesen Deklarationen auf:
'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal _
' WindowName As String) As Long
'Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal Instance As Long, ByVal _
' ExeFileName As String, ByVal IconIndex As Long) As Long
'Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Message _
' As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
'
'Const WM_SETICON = &H80
Was genau da falsch läuft kann ich dir aber nicht sagen, dass ganze API ist nicht meine Welt! Ich kann dir aber sagen, dass du den Fehler NICHT in Hajos Zeitmakro suchem musst, das ist so wie es ist funktional.
Zum Testen habe ich 'ThisWorkbook.Worksheets("Leinwand").Range("AK4").Value = Time ersetzt gegen
ThisWorkbook.Worksheets("Leinwand").activate
Range("AK4").select
und dann im Einzelschrittmodus, dadurch bin ich darauf gekommen WO der Fehler liegt.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Ständig aktuelle Uhrzeit --> Hajo?!

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread