datum vraagje in sjabloon

[spacer225]

Beste helpers,

Is het mogelijk om in een sjabloon de datum op de volgende manier te laten functioneren?
Bij openen wordt de datum in een veld getoond van de betreffende dag en na het opslaan ervan veranderd de datum niet meer.
Dus wanneer het doc een dag later weer wordt geopend, wordt de datum van de vorige dag getoond.

Heb een voorbeeldje bijgesloten.

 

[Cobbe]

Daar bestaan vele varianten op, een ervan is deze:

Private Sub Workbook_Open()
If Sheets("Derving").Cells(4, 1) = "" Then Sheets("Derving").Cells(4, 1) = Date
End Sub

Cobbe

 

[spacer225]

Dank je Cobbe maar waar en hoe vul ik de code in? Ik ben niet zo'n heel ervaren gebruiker van Excel...
Alvast bedankt.

Hans

 

[ExcelAmateur]

spacer225,

Zo te zien moet deze code in ThisWorkbook
Alt + F11 en je ben in de vba omgeving, plak de code dan in ThisWorkbook.

 

[spacer225]

Dank je EA, ik heb het geplakt (bijlage) maar dan... Het bestand met code in workbook heb ik opgeslagen als sjabloon met macro's. Is het nu zo dat na het opslaan de datum niet meer wijzigd?

Hans

 

[ExcelAmateur]

spacer225,

Volgens mij staat er Als cel D1 leeg is zet je de datum.
Dus als er een wat in die cel staat zet hij er niets in.
Dat kun je toch even testen, desnoods op een lege file en dan morgen kijken.

If Sheets("Derving").Cells(4, 1) = "" Then Sheets("Derving").Cells(4, 1) = Date