Systeemtijd in cel

[Glenno]

Hallo,

Ik wil in een cel de tijd plaatsen en dat die ook automatisch meeloopt met de systeemtijd. Ik heb al =NU() en Vandaag() geprobeert, maar de tijd blijft statisch staan op het moment van invoeren. Ook Ctrl+; en Shift+Ctrl+: geprobeerd.
Kan er ook niets over vinden.

Hoe los ik dit probleem op???

Dank.

Glenno

 

[JEC.]

Als je dit achter je thisworkbook module zet

Private Sub Workbook_Open()
start_timer
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
stop_timer
End Sub

En dit achter een nieuwe module (rechtermuisknop --> insert module)
Dan gaat de klok lopen zodra je het bestand opent. Hij stop ook weer wanneer je het bestand sluit.

Sub start_timer()
Sheets(1).Cells(1, 1) = Format(Now, "hh:mm:ss")
Application.OnTime DateAdd("s", 1, Now), "start_timer"
End Sub

Sub stop_timer()
Application.OnTime DateAdd("s", 1, Now), "start_timer", , False
End Sub

 

[edmoor]

Ik begrijp nooit waarom men een lopend klokje in een Excel document wil hebben.
Je hebt er VBA voor nodig en het vertraagd alleen maar.
De juiste tijd staat altijd rechts in de Taakbalk.

 

[Glenno]

Hallo JEC/JV,

Dankjewel voor het formuleren van de code/oplossing.

Ik heb echter 1 doorslaggevend probleem: ik weet NIETS van VBA.

Wat heb ik nu gedaan:
1. eerst de tab "Ontwikkelaar" aanzetten
2. vervolgend op de VBA button geklikt
3. Daarna dubbelklik op Thisworkbook en de code gekopieerd. Ik zie niet dat ik het ergen kan/moet opslaan. Hij geeft in iedder geval aan dat het niet kan worden opgeslagen in werkmappen zonder macro's. (toen het scherm gesloten dmv X (rechterbovenhoek))
4. Gekozen voor module invoegen, gekopieerd en op dezelfde wijze als punt 3 gesloten.

Als ik vervolgens de macro start krijg ik een foutmelding.

Waar gaat het fout? Kun je me svp nog wat specifieke instructies geven?

Dank dank

Glenno

 

[JEC.]

Je moet het bestand opslaan (als xlsm file).
Belangrijk is om de code niet handmatig runnen. Als je dat wil moet het iets anders aangepakt worden. Wanneer je het bestand opent gaat de klok vanzelf lopen.

 

[Glenno]

Ik begrijp nooit waarom men een lopend klokje in een Excel document wil hebben.
Je hebt er VBA voor nodig en het vertraagd alleen maar.
De juiste tijd staat altijd rechts in de Taakbalk.

Ik snap je vraag. Echter zie ik geen andere oplossing. Ik wil nl. dmv een voorwaardelijke opmaak (kleurtjes), aangeven dat de beschikbare tijd nog niet is afgelopen. De systeemtijd in een cel is ter controle.

 

[edmoor]

Op welk werkblad en in welke cel wil je dan de tijd zien lopen?

 

[Glenno]

Met bestand

Zie bijlage.

Ik wil dus de (doorlopende) tijd in cel J2.

De voorwaardelijke opmaak wordt (per regel) bepaald dat de tijd in J2 moet liggen op (=Vandaag() ) tussen kolom E en J.

 

[edmoor]

Zo dus.
In J2 zie je het per minuut, in de formulebalk per seconde, als je klikt op J2.
De cel eigenschappen kan je uiteraard aanpassen.

 

[Glenno]

Zo dus.
In J2 zie je het per minuut, in de formulebalk per seconde, als je klikt op J2.
De cel eigenschappen kan je uiteraard aanpassen.

Precies zoals ik het bedoelde. SUPER!!!

Dankjewel.

Gr. Glenno

 

[popipipo]

Door in een cel =NU() te plaatsen verschijnt de systeemtijd.
Door 1 maal op F9 te drukken wordt deze vanzelf ververst daar heb je geen vba of iets anders voor nodig.

 

[snb]

Een concept gaat aan de uitvoering vooraf.
Je voorwaardelijke opmaakregel is fout; gebruik bijv.

=$E$164=Today()