Datum en tijd in excel

[Wigi]

Je plaatst de code in Workbook_Open en Workbook_BeforeClose op de verkeerde plaats.

Van op die site:

The fastest way to get to the Private Module of the Workbook Object ([B]ThisWorkbook[/B]) is to right click on the Excel icon next to "File" and select "View Code"

Beide moeten dus bij ThisWorkbook staan en niet in een module.

 

[vis ta]

Ik zie dus geen excelicoontje naast bestand staan. Alleen eronder maar als ik daar op rechterklik krijg ik nergens iets van 'code bekijken' ofzow. Bestaat er geen simpelere manier?

Ik weet dat ik het ooit volgens een tutorial die ik niet meer vind voor elkaar heb gekregen met alleen macro's. Geen ThisWorkBookgedoe

 

[Wigi]

In VBA waar je modules van je bestand staan, daar staat toch net boven ook ThisWorkbook???

 

[vis ta]

Ja, goed. Dat heb ik kunnen aanpassen zoals het hoort denk ik. Nu komt er nog steeds diezelfde foutmelding.

En er is een foutmelding bijgekomen:

Compileerfout:

Er is een dubbelzinnige naam gevonden: Klok

 

[Wigi]

Er is een dubbelzinnige naam gevonden: Klok

Je mag de naam van een macro maar 1 keer gebruiken (wel, niet helemaal juist gezegd, maar juist genoeg).

 

[vis ta]

Hoe moet ik het dan doen? Welke codes moeten precies waar staan om het te laten werken?

 

[Warme bakkertje]

Beste Vis ta, aandachtig en begrijpend lezen is essentieel bij het gebruik van VBA. Lees daarom de uitleg van Wigi's link desnoods 2x of 3x alvorens je gaat experimenteren.
Dit gezegd zijnde, om je uit je lijden te verlossen

Plaats volgende code in ThisWorkbook

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

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

en volgende code in een standaardmodule

Public dTime As Date
Sub Klok()
    dTime = Now + TimeValue("00:00:01")
    Application.OnTime dTime, "Klok"
    Calculate
End Sub

Mvg

Rudi

 

[vis ta]

Ik heb de uitleg meerdere malen gelezen. Het punt is nog om het als leek op vlak van VBA te kunnen begrijpen!

Maar ik ben blij dat het nu eindelijk werkt. Hartelijk bedankt!