invullen datum ?

[oossie]

Is het mogelijk om in een cel de systeemdatum automatisch in te laten vullen, en zoja hoe kan ik dit bereiken ?

Groeten Oossie

 

[Ingrid B]

met een sneltoets: [Ctrl]+[;]

met een event-macro, bijv bij het openen van het document:

Private Sub Workbook_Open()
  Sheets("Blad1").Range("A1") = Date
End Sub

kopieer de macro naar ThisWorkbook

 

[oossie]

Als ik deze makro uitvoer krijg ik de volgende foutmelding:

fout 9 tijdens uitvoering

Het subscript valt buiten het bereik.

de datum moet in cel F19 terechtkomen

Private Sub Workbook_Open()
Sheets("Blad1").Range("F19") = Date
End Sub

Wat doe ik fout ?

 

[Ingrid B]

Bestaat er een werkblad met de naam Blad1? Anders zal je dit in de macro moeten aanpassen.

 

[MvM]

Hallo, je moet in die cel =NU() invullen en dan krijg je systeemdatum.

 

[oossie]

Bedankt, probleem opgelost

Groeten Oossie