Automatisch de computerdatum in een cel?

[mfranken]

Is het mogelijk om, bij het openen van een sheet, automatisch de computerdatum in een cel te laten zetten?
Marij

 

[Wigi]

Zet dit bij ThisWorkbook:

Private Sub Workbook_Open()
    
    Sheets("naamvandesheet").Range("celwaarhetmoetkomen").Value = Date
    
End Sub

Maak de cel op in het gewenste datumformaat.

Wigi

PS: Doe aub wel de moeite om de zoekfunctie van het forum te gebruiken, dit is al veel keren behandeld geweest.

 

[mfranken]

PS: Doe aub wel de moeite om de zoekfunctie van het forum te gebruiken, dit is al veel keren behandeld geweest.

Sorry, had ik deze keer niet gedaan. Maar ben alsnog gaan zoeken omdat ik met jouw oplossing geen raad weet. Ik weet nl niet hoe/waar precies ik die gegevens zou kunnen invoeren. Toen kwam ik de oplossing VANDAAG() tegen. Dat werkte prima.

Nu wil ik nog iets anders, nl de datum van vandaag gesplitst over drie cellen.
Bij het zoeken vond ik jouw aanwijzing van de functies DAG(), MAAND() en JAAR().
Ik kom er echter niet uit. De functies DAG() en MAAND() geven dit woord in de cel.
De functie JAAR() vraagt om een serieel getal??

Marij

 

[Wigi]

=DAG(VANDAAG())
=MAAND(VANDAAG())
=JAAR(VANDAAG())

Wigi

 

[Wigi]

Ik weet nl niet hoe/waar precies ik die gegevens zou kunnen invoeren.

Je weet waar de projectverkenner is. Wel, daar heb je ThisWorkbook. Plak de code daar.

 

[mfranken]

Je weet waar de projectverkenner is. Wel, daar heb je ThisWorkbook. Plak de code daar.

Ik weet ThisWorkbook wel te vinden. Dan zie ik wat op bijstaand plaatje staat. Maar dan snap ik nog niet waar precies die code kan worden ingevoerd !?!
Marij

Ik heb het al gevonden. Ik zie ineens dat het een excelblad is dat je kunt openen.
Alweer opgelost dus
M.

 

[Finch]

Alweer opgelost dus
M.

Kan je de status van deze thread dan ook op opgelost zetten? Alvast bedankt.