Uhrzeitmakro aus altem Beitrag, aber......
30.12.2004 14:27:47
Andreas
bei mir läuft das sobald ich es aufrufe in dem Beispiel das ich dort downloaden kann. Die Formeln in dem XLS beziehen sich auf 3 Spalten, wobei das nicht nötig ist soweit ich das sehe, nur Veranschaulichung denke ich mal.
Threadadresse www.herber.de/forum/archiv/452to456/t453653.htm ). Wenn ich es bei mir einbinde geht es nicht. Hier das Makro, das ich dem Tabellenblatt HHK_05 importiert habe. In der Zelle A1 von HHK_05 soll die Prozedur laufen (Formatierung=TT.MM.JJJJ hh:mm:ss Formel=JETZT().
Option Explicit
Dim datA As Date 'für AutoSchließen-Prozedur
Sub Zeitakt()
Sheets("HHK_05").[F1].Calculate
Startzeit
End Sub
Sub Startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Zeitakt", Schedule:=False
datA = Now + CDate("00:00:01")
Application.OnTime datA, "Zeitakt"
End Sub
'Auto-Prozedur löschen
Sub Zurücksetzen()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Zeitakt", Schedule:=False
End Sub
Ich weiss allerdings nicht, wofür das (F1) steht. Wäre nett wenn mich hier vielleicht jemand etwas aufklären könnte.
Danke und Gruss
Andreas