Problem med dato formel

Ikke med formel, men CTRL+SHIFT+; sætter dags dato ind

mange tak
send et svar så jeg kan give point
mvh
Petert

et svar ;-))

Følgende kan indsættes i 'ThisWorkbook'

Private Sub Workbook_Open()
    Sheets("Arknavn").Activate
    If [h2] <> "" Then Exit Sub 'Check at der ikke allerede er sat dato på
    Range("h2").Value = Date 'Indsæt dato i celle H2
End Sub

meget interasant men hvordan virker dette og hvordan gør man??(mit felt til dato er i celle f61 i ark 1

'Cellen skal du formatere til at vise datoen som du ønsker at se den.
I Excel trykker du på Alt+F11, så du kommmer ind i makro-editor.
I venstre side skal du dobbeltklikke på ThisWorkbook - i højreside får du så en tom side, og her skal du indskrive nedenstående. Når du er færdig går du tilbage til regnearket og gemmer det som en skabelon, uden dato i celle F61; men cellen skal være formateret til dato.

Private Sub Workbook_Open()
    Sheets("ark1").Activate
    If [f61] <> "" Then Exit Sub 'Check at der ikke allerede er sat dato på
    Range("f61").Value = Date 'Indsæt dato i celle F61
End Sub

Tak for det send et svar så jeg kan lukke.
mvh
Petert