Hvordan gemmer jeg dags dato

Skal lige siges at jeg kører office 2003

skal den gemmes i et felt, eller er det godt nok at gemme den i header eller footeren så den vises ved vis udskrift eller udskrivning

ok hvis du skal gemme den i et felt er det som beskrevet herunder. En smule kode men ikke meget

You need to use a VB macro.

Open the macro editor (Alt-f11)
Locate your workbook in the list of open workbooks on the left
If there is a

• next to it, click on it to expand
  

Locate the "ThisWorkbook" that is a subheading of your workbook

Type the following:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
    [A1] = Now
End Sub

You can place any cell reference in the brackets instead of [A1].  Even
precede it by a worksheet name, i.e. [Sheet1!A1] = Now

hvis du mente på udskrifter, går du i menuen vis -header/footer og vælger custom header eller footer (efter hvor du vil have datoen) der vælger du kalender ikonet skriver et mellem rum og vælger ur ikonet -så skulle du vidst være der.

Hvis du vil sætte datoen for hvornår filen sidst blev gemt ind i headeren på udskriften, kan det gøres med følgende.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.RightHeader = "Saved date " & FileDateTime(ActiveWorkbook.FullName)

End Sub

Jeg kender ikke version 2003, men i de tidligere versioner er der ingen let adgang til sidst gemt dato (hvilket er lidt mærkeligt, når man tænker på at funktionen f.eks. er let tilgængelig i Word).

Det virker desværre ikke...Der sker ikke noget, når jeg forsøger at smide den ind. Det er lykkedes mig at smide den ind, men den gemmer det ikke i noget felt
Det skal siges, at jeg ønsker at gemme det i et felt og ikke på udskriften..

Så bare glem min kommentar. Min funktion henter styresystemets oplysning om hvornår filen blev gemt, og det kan læses før EFTER filen er gemt.

vigilantes forslag skal blot justeres lidt, så det virker:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Worksheets("Ark1").Range("A1") = Now()

End Sub

Denne funktion indsættes i et alm. makromodul og giver dato for sidste gang filen blev gemt. Funktionen kan bruges direkte i regnearket.

Function LASTSAVED()
    Application.Volatile
    LASTSAVED = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

sjap du har ret, der manglede lige sheet'et