Avatar billede spoi Nybegynder
04. september 2003 - 13:28 Der er 10 kommentarer og
1 løsning

dato for sidst redigeret

Hej

Hvordan sætter man redigeringdato ind i en celle

Har søgt lidt rundt men er ikke helt klar over hvad jeg kan bruge

Jeg kører Excel 97

LN
Avatar billede overchord Nybegynder
04. september 2003 - 13:31 #1
kan =Now() bruges?

Den indsaetter tidspunktet fra system tiden naar arket aabnes
Avatar billede spoi Nybegynder
04. september 2003 - 13:45 #2
Nej det kan det desværre ikke.

Det åbnes ofte, men det er kun når der er ændringer datoen skal opdateres.

Desværre

LN
Avatar billede overchord Nybegynder
04. september 2003 - 13:51 #3
Kan du saa ikke bruge Excel's indbyggede "Track changes" ?
Avatar billede spoi Nybegynder
04. september 2003 - 13:57 #4
Nej det tror jeg ikke. I hvert fald ikke sådan som jeg forstår Track changes.
Angiver den ikke bare senest åbnede filer.
Datoen skal stå i en celle på selve arket.

Tror umiddelbart det er noget VB kode men er ikke sikker

LN
Avatar billede bak Forsker
04. september 2003 - 13:58 #5
indsæt senne sub i ThisWorkBook
Indsætter redigeringstiden i 1 arks celle a1

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sheets(1).Range("A1") = Now
End Sub
Avatar billede spoi Nybegynder
04. september 2003 - 14:09 #6
Det virker bortset fra at kun datoen skal stå der og ikke både dato og tid

Havde faktisk prøvet præcis samme kode tidligere men lavede en stavebøf. Dejligt med hurtig tilbagemelding.
Avatar billede spoi Nybegynder
04. september 2003 - 14:10 #7
Skal du ikke have Point bak?
Avatar billede spoi Nybegynder
04. september 2003 - 14:12 #8
Hov synes den opadterede tid bare fordi jeg klikkede i et felt.
Det var jo ikke meningen. Det er kun ved ændringer datoen skal komme
Avatar billede bak Forsker
04. september 2003 - 14:41 #9
Hos mig opdateres den kun ved ændringer.

har du brugt
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
som jeg har skrevet
eller

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Den sidste vil opdatere til hver gang du vælger en celle.


for kun at få dato over

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sheets(1).Range("A1") = Date
End Sub
Avatar billede bak Forsker
04. september 2003 - 14:44 #10
svar :-)
Avatar billede spoi Nybegynder
04. september 2003 - 15:47 #11
Hmmm var vist lige lidt hurtig. Det fungerer bare.
Tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester