I ThisWorkbook (i VBA editoren) indsætter du følgende kode:
Private Sub Workbook_Open()
If Not Worksheets("Ark1").Range("A1") > 0 Then Worksheets("Ark1").Range("A1") = Date End If
End Sub
Funktionen afvikles hver gang regnearket åbnes, og undersøger om der står et tal i celle A1 på faneblad Ark1. Hvis der ikke står noget skrives den aktuelle dato.
Du skal selvfølgelig lige rette Ark1 og A1 til din placering.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.