lopende tijd in excel

[alfa911]

Graag zou ik in excel een lopende tijd in beeld willen zien met formule =NU() die automatisch start en waarbij het programma normaal afsluit zonder dat je eerst de lopende tijd moet stoppen.

Alvast bedankt

 

[mvw64]

Bedoel je zo ?

 

[alfa911]

Ja dat is hem, dank je wel. Was ik al een tijdje naar op zoek.

Gr. tim

 

[alfa911]

Hallo, als ik hem op de laptop open werkt hij goed, om mijn gewone pc niet.
Moet ik een instelling veranderen?

Gr. Tim

 

[snb]

Macro's inschakelen ?

 

[alfa911]

Deze staat aan !

gr. tim

 

[mvw64]

Ik weet niet waarom wel op de laptop en niet op de pc
Misschien zo

 

[alfa911]

De een na laatste regel in de programmacode geeft een foutmelding, is geel gekleurd
application. ontime now enz.

 

[pixcel]

Een timer moet gecanceld worden met exact dezelfde tijd als waarmee hij ingesteld werd. Dat gaat hier toevallig goed omdat de interval 1 seconde is. Probeer een interval van 2 seconden en het gaat mis: na sluiten opent excel het bestand weer. De gebruikelijke oplossing: de tijd waarmee je instelt sla je eerst op in een globale variabele.
Als je een ander excel-bestand opent blijft de timer doorlopen. In dat andere bestand zie je dan kleine flikkeringen van de cursor. Oplossing: gebruik Activate en Deactivate ipv Open en Close events.

 

[alfa911]

Bedankt voor de reactie,

Ik begrijp wel ongeveer wat uw bedoeling is, maar weet dit niet in de programmacode te zetten.
Zou u dat in een voorbeeldje willen zetten voor mij?

Er zijn wel voorbeelden waarbij je zelf moet starten en stoppen, maar graag wil ik dat hij automatisch start bij openen en automatisch af te sluiten is.

Alvast bedankt

 

[pixcel]

Plak dit in de ThisWorkbook module:

Option Explicit

Private mTijd As Double

Private Sub Workbook_Activate()
    SetTimer
End Sub

Private Sub Workbook_Deactivate()
    CancelTimer
End Sub

Private Sub SetTimer()
    ThisWorkbook.Worksheets(1).Range("A1") = Format(Time, "hh:mm:ss")
    mTijd = Now + TimeValue("00:00:01")
    Application.OnTime mTijd, "ThisWorkbook.SetTimer"
End Sub

Public Sub CancelTimer()
    On Error Resume Next
    Application.OnTime mTijd, "ThisWorkbook.SetTimer", , False
End Sub

 

[alfa911]

Plak dit in de ThisWorkbook module:

Option Explicit

Private mTijd As Double

Private Sub Workbook_Activate()
    SetTimer
End Sub

Private Sub Workbook_Deactivate()
    CancelTimer
End Sub

Private Sub SetTimer()
    ThisWorkbook.Worksheets(1).Range("A1") = Format(Time, "hh:mm:ss")
    mTijd = Now + TimeValue("00:00:01")
    Application.OnTime mTijd, "ThisWorkbook.SetTimer"
End Sub

Public Sub CancelTimer()
    On Error Resume Next
    Application.OnTime mTijd, "ThisWorkbook.SetTimer", , False
End Sub

Als ik deze tekst plak gebeurt er niets, moet ik in cel A1 een tijd noteren of iets activeren?
Zou u mij een excel bestandje willen sturen?

Bedankt voor de moeite

 

[pixcel]

Plakken, opslaan, sluiten en weer openen.

 

[alfa911]

bedankt, werkt goed