Indsæt dags dato uden opdatering

fx. højreklik/copy
højreklik/paste speciel/værdi
(både copy og paste i samme celle, hvor dato er, så forsvinder formlen)

Ctrl + ; giver dato.

Her skal datoen stå i C7 - ellers må du lige rette til:

    Range("C7").Select
        ActiveCell.FormulaR1C1 = "=NOW()"

'  Sæt format på opdateringstidspunktet
    Range("c7").Select
    Selection.NumberFormat = "dd/mm/yyyy hh:mm"
   
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
   
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Insert the current date and time in a cell
Insert a static date or time

Current date    Select a cell and press CTRL+;
Current time    Select a cell and press CTRL+SHIFT+;

Current date and time    Select a cell and press CTRL+; then SPACE then CTRL+SHIFT+;

Insert a date or time whose value is updated

Use the TODAY and NOW functions to do this task.

Worksheet example
The example may be easier to understand if you copy it to a blank worksheet.

How?

Create a blank workbook or worksheet.
Select the example in the Help topic. Do not select the row or column headers.


Selecting an example from Help

Press CTRL+C.
In the worksheet, select cell A1, and press CTRL+V.
To switch between viewing the results and viewing the formulas that return the results, press CTRL+` (grave accent), or on the Tools menu, point to Formula Auditing, and then click Formula Auditing Mode.
 
1
2
3
A B
Formula Description (Result)
=TODAY() Current date (varies)
=NOW() Current date and time (varies)


Note  The NOW() and TODAY() functions change only when the worksheet is calculated or when a macro that contains the function is run. They are not updated continuously. The date and time used are taken from the computer's system clock.

Hej X-lars
Hvis nu jeg retter dit kinesisk til følgende - mon så også det virker???

    Range("L17").Select
        ActiveCell.FormulaR1C1 = "=IDAG()"

'  Sæt format på opdateringstidspunktet
    Range("L17").Select
    Selection.NumberFormat = "dd-mm-åååå"
   
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
   
    Range("L17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Smide lige den ind til sidst og så spiller det.

Application.CutCopyMode = False

Hmmm... Skal lige have noget på det rene... Skal det kinesiske sættes ind som det står her:


    Range("L17").Select
        ActiveCell.FormulaR1C1 = "=IDAG()"

'  Sæt format på opdateringstidspunktet
    Range("L17").Select
    Selection.NumberFormat = "dd-mm-åååå"
   
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
   
    Range("L17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Eller skal der noget sub og end sub på og skal det bare sættes ind i ThisWorkBook?

Så den ser sådan ud???


    Range("L17").Select
        ActiveCell.FormulaR1C1 = "=IDAG()"

'  Sæt format på opdateringstidspunktet
    Range("L17").Select
    Selection.NumberFormat = "dd-mm-åååå"
   
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
   
    Range("L17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False, Application.CutCopyMode:=False

Sådan ser det ud nu og uden rød skrift - håber det virker :)


Range("L17").Select
        ActiveCell.FormulaR1C1 = "=IDAG()"

'  Sæt format på opdateringstidspunktet
    Range("L17").Select
    Selection.NumberFormat = "dd-mm-åååå"
   
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
   
    Range("L17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False

Du kan indsætte koden så den eksekveres når du åbner dit regneark.
Kopier koden ind under Thisworkbook modulet

Private Sub Workbook_Open()
Worksheets("Ark1").Range("C7").Select
        ActiveCell.FormulaR1C1 = "=NOW()"
'  Sæt format på opdateringstidspunktet
    Range("c7").Select
    Selection.NumberFormat = "dd/mm/yyyy" 
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy 
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Ark1 skal evt. rettes til det du har navngivet dit ark med.

Yes!!! Perfekt :)

Hvis x-lars og mrjh smider nogle svar, så smider jeg rundt med nogle point :)

Ok, men hovedparten til x-lars som er kommet med koden

Kommer her! Tak for assistance til mrjh, som sprang ind, mens jeg var til frokost!

Hmmm... Inden jeg fordeler point.... Kunne I måske fortælle mig hvorfor der kommer en fejl når jeg beskytter mit ark???
Fejlen lyder:

Run-time error: '1004':
Kan ikke angive NumberFormat for klassen Range.

Fandt selv fejlen... Jeg havde sat datoformatering på L17. Da jeg satte den til standard formattering forsvandt min fejl....

1000 tak for ubeskrivelig god hjælp :)

Næææ, det var ikke det... Har i nogle forslag???

I starten af koden
Worksheets("ark3").Unprotect
Og i slutningen af koden
Worksheets("ark3").Protect

Enig...Det burde kunne løse problemet.

Øh hvad... hvorfor ark3???
Mit ark3 hedder "Tabel"

Hmmm.... Måske du mener at jeg selv skal erstatte "ark3"
Og mit hedder jo "Faktura"

Hæ hæ :)

Prøv i stedet med følgende....

    ActiveSheet.Unprotect

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Så ender det hele med at se således ud:

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Worksheets("Faktura").Range("L17").Select
        ActiveCell.FormulaR1C1 = "=NOW()"
'  Sæt format på opdateringstidspunktet
    Range("L17").Select
    Selection.NumberFormat = "dd/mm/yyyy"
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
    Range("L17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Endnu engang tak for jeres hjælp ;)

Selvtak §:o)

Lidt kortere

Private Sub Workbook_Open()
  With Worksheets("Faktura")
      .Protect userinterfaceonly:=True
      .Range("L17") = Date
  End With
End Sub

Sorry, du skal lige have en sikring ind således at hvis der i forvejen står en dato må den ikke overskrives

Private Sub Workbook_Open()
  With Worksheets("Faktura")
      If .Range("L17") = "" Then
        .Protect userinterfaceonly:=True
        .Range("L17") = Date
      End If
  End With
End Sub

PS. jeg kan ikke helt forstå at du kan få koden fra 11/09-2006 13:18:52 til at fungere korrekt.

Som jeg ser det, vil den da opdatere (overskrive) datoen når fakturaen åbnes næste dag (hver gang den åbnes). Det må da betyde at du er lige vidt. du er nødt til at chekke om der allerede står noget i cellen inden.

Hey bak....
Hmmm... Det lyder ikke godt.... Jeg checker min faktura og vender tilbage imorgen...

Kan allerede nu se du har ret bak....
Når jeg åbner en gemt faktura ændre den faktisk på klokkeslættet - også ændre den vel også dato, hvis jeg åbner imorgen...

Men hvordan får jeg så det til at virke???

Jeg opretter mit spørgsmål igen som:
Indsæt dags dato uden opdatering2