CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

cstern Nybegynder

20. februar 2002 - 10:34 Der er 5 kommentarer og
1 løsning

frysning af dato (=TODAY())

Jeg bruger Excel (XP og 2000) til at udskrive fakturaer.
På skabelonen benytter jeg =TODAY() funktionen til at indsætte fakturadato, og det er fint.

Men når jeg senere skal bruge en gammel faktura opdateres datoen (selvfølgelig) til den aktuelle dato.

Hvordan ændrer jeg det så der kun står den dato hvor dokumentet er oprettet, altså noget svarende til at =TODAY() laves om til sin egen value (m.a.o. skal funktionen ikke længere eksistere, kun værdien).

Synes godt om

bak Seniormester

20. februar 2002 - 10:57 #1

Du kan bruge en lille makro istedet
sub insertdate()
range("A1").value = date
end sub

Synes godt om

cstern Nybegynder

20. februar 2002 - 11:08 #2

OK, fint. Nu er jeg jo desværre en makro-analfabet, så hvad skal jeg gøre for at følgende sker automatisk(!) når skabelonen åbnes:

1) Celle J7 udfyldes med =TODAY
2) Samme celle konverteres til value med ovenstående

Synes godt om

bak Seniormester

20. februar 2002 - 11:24 #3

alt-f11 åbner vba-editor
indsæt nu følgende makro i ThisWorkbook
Husk at ændre Sheet1 til navnet på det ark du ønsker datoen i
Når skabelonen åbnes checker den om der står noget i J7. Hvis feltet er blankt indsættes dato, Hvis feltet ikke er blankt sker der ikke noget.

Private Sub Workbook_Open()
If IsEmpty(Range("Sheet1!J7")) Then Range("Sheet1!J7").Value = Date
End Sub

Synes godt om

cstern Nybegynder

20. februar 2002 - 11:30 #4

OK, super.
Den anden ting med workday fungerer ikke helt efter hensigten...

Synes godt om

bak Seniormester

20. februar 2002 - 11:32 #5

Hvor fejler den ?

Synes godt om

cstern Nybegynder

20. februar 2002 - 11:37 #6

Ja, den fungerer som den skal, men ikkw som jeg gerne vil - jeg har skrevet mere om det i spørgsmålet. http://exp.dk/spm/175002

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Aomei Backupper pro til Outlook Af barth i Office & Kontorpakker	2	30/05/202414:59	30/05/202420:33
Print tosidet opslag til pdf fra Publisher Af KurtG i Office & Kontorpakker	13	27/05/202413:20	29/05/202409:36
Outlook 2019, opgaver er forsvundet. Af barth i Office & Kontorpakker	1	23/05/202411:55	23/05/202414:23
Program til deling af billeder på nettet Af Bukse i Office & Kontorpakker	2	20/05/202417:03	20/05/202418:06
Geninstallation af Office 2019 Af ErikHg i Office & Kontorpakker	10	19/05/202415:20	21/05/202417:49

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS