Datum en tijd in excel

[vis ta]

Ik heb de datum en tijd ingevoegd in excel met de functie =nu()

Deze klok is eigenlijk bedoelt om andere tellers in het excelblad aan te sturen en moet dus up to date gemaakt worden elke seconde.

Ik dacht dit op te lossen door een macro en voor zover ik daar wat van ken heb ik er eentje opgenomen.

Klik op opnemen, naam "klok" gegeven, op F9 gedrukt en stoppen met opnemen --> dat is wat ik net heb gedaan.

Nu ziet de macro er dus zo uit:

Sub Klok()
'
' Klok Macro
'

'
Calculate
End Sub

Maar hoe kan ik er nu voor zorgen dat deze macro van zodra ik het exceldocument open automatisch elke seconde wordt uitgevoerd?

 

[Ginger]

Vis ta, ga ff naar deze link en daar naar het woordje 'clock'. Dan start je een download met een clock van C.Pearson...

Groet, Leo

 

[vis ta]

Dat is chinees voor mij, en zo'n klok heb ik ook niet nodig. Ik wil gewoon dat de macro die ik nu heb automatisch elke seconde opnieuw wordt uitgevoerd. hoe speel ik dat klaar?

 

[Wigi]

Hier is er uitleg en code:

http://www.ozgrid.com/Excel/run-macro-on-time.htm

Dit is ook al meermaals hier op het forum toegepast geweest.

Wigi

 

[vis ta]

Elke seconden laten berekenen is de bedoeling, dus ik heb volgende code van die pagina geplukt:

Private Sub

Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "MyMacro", , False

End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:15:00"), "MyMacro"

End Sub

en vervolgens heb ik deze bewerkt (en voor mijn macro geplaatst) tot:

Private Sub

Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "Klok", , False

End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "Klok"

End Sub
Sub Klok()
'
' Klok Macro
'

'
Calculate
End Sub


Hij doet niets uit zichzelf dus veronderstel dat ik hem eerst moet 'uitvoeren'. Maar als ik dat probeer krijg ik:

Compileerfout:

Verwacht: aanduiding

Wat nu?

 

[Wigi]

Wel ja:

Private Sub Workbook_Open()

Letterlijk vertaald: bij het openen van het bestand...

 

[vis ta]

Wanneer ik het rekenblad open krijg ik eerst de melding dat de macro's zijn uitgeschakeld en dat ik ze moet inschakelen. Wanneer ik dat heb gedaan krijg ik dezelfde foutmelding

 

[Wigi]

Waarvoor staat die dTime?

Waar staat de code geplakt?

 

[vis ta]

Hoe bedoel je? Die volledige code staat gewoon in een macro
dus ik heb die eerste macro gemaakt door een macro op te nemen en dan heb ik ervoor gekozen die te bewerken en heb ik dat andere deel daarboven geplakt en 'Mymacro' overal vervangen door 'Klok'
en de 00:15:00 vervangen door 00:00:01

 

[Wigi]

Dit heb je bvb al niet geplakt (en aangepast):

Now in any Standard Module (Insert>Module) place this;

Public dTime As Date
Sub MyMacro()
dTime = Now + TimeValue("00:15:00")
Application.OnTime dTime, "MyMacro"


'YOUR CODE
End Sub

 

[vis ta]

en waar moet ik dat plakken?

 

[Wigi]

en waar moet ik dat plakken?

Dit heb je bvb al niet geplakt (en aangepast):

Now in any Standard Module (Insert>Module) place this;

Public dTime As Date
Sub MyMacro()
dTime = Now + TimeValue("00:15:00")
Application.OnTime dTime, "MyMacro"

'YOUR CODE
End Sub

 

[vis ta]

Heb office 2007 en module zie ik alweer nergens

 

[Wigi]

Heb office 2007 en module zie ik alweer nergens

Als je in de VBA code van je bestand bent, doe Insert > Module, of Invoegen > Module als het een Nederlandse Excel versie is.

 

[vis ta]

Nog steeds dezelfde foutmelding.

En die foutmelding krijg ik ook als ik excel sluit.

Kan ik er trouwens voor zorgen dat in dat bestand alleen de macro's blijven ingeschakeld dat ik dat dus niet steeds moet doen?

 

[Wigi]

Kan ik er trouwens voor zorgen dat in dat bestand alleen de macro's blijven ingeschakeld dat ik dat dus niet steeds moet doen?

Zet je macro beveiliging dan op Laag.

Geldt wel voor alle bestanden die je opent.

 

[Wigi]

Hang je bestandje hier bij in versie 2003 (liefst).

MAAR zet alle code die je bij ThisWorkbook hebt staan, in commentaar. Dat maakt het voor helpers simpeler.

Wigi

 

[vis ta]

Wat bedoel je met "in commentaar"?

 

[Wigi]

Enkele aanhalingstekens ' voor de regels zetten zodat die code in commentaar komt en niet uitgevoerd wordt op run-time.

 

[vis ta]

zo, daarin staat de macro als het goed is.