dato og antal i samme celle

Ved ikke om det er  nogenlunde sådan noget du efterlyser.

Hvis du højrerklikker på dit ark og klikker på VIS PROGRAMKODE og indsætter denne kode og efterfølgende skriver noget i området a1 til a20. så skulle der ske noget.

Hvis det er noget i denne retning retter vi den lige til, men så skal jeg lige have præciseret hvor det er:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fejl
If Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
    If Target.Offset(0, 0) <> "" Then
        Target.Offset(0, 1) = Format(Date, "d. mmmm yyyy")
        Target.Offset(0, 2) = Format(Date, "d. mmmm yyyy") & " - " & Target.Offset(0, 0)
    End If
Fejl:
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rEnteringRange As Range
    Set rEnteringRange = Range("A1:A500")
   
    On Error GoTo Finito
    If Not Intersect(Target, rEnteringRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = CStr(Target.Value) & " (" & Format(Now(), "yyyy/mm/dd") & ")"
        Application.EnableEvents = True
    End If
   
Finito:
End Sub

Altså, hvis der skal regnes på den, så er det formatet, der skal indeholde datoen.
Jeg ved ikke hvad excel, siger til at få "mange" brugerdefinerede formater på sin liste, man må jo så nok slette dem manuelt, hvis det går galt.

Her er en omskrivning af smartoffice_dk's kode

jeg har udskiftet linjen

Target.Value = CStr(Target.Value) & " (" & Format(Now(), "yyyy/mm/dd") & ")"

så nu kan der regnes på værdien

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rEnteringRange As Range
    Set rEnteringRange = Range("A1:A500")
 
    On Error GoTo Finito
    If Not Intersect(Target, rEnteringRange) Is Nothing Then
        Application.EnableEvents = False
        Target.NumberFormat = "(" & Format(Now(), "yyyy/mm/dd") & ") ##.00"
        Application.EnableEvents = True
    End If
 
Finito:
End Sub

Tak for hurtige svar...

Har jeg ret i at forskellen på smartoffice og kabbaks forslag er om man ønsker decimaler efter sin værdi ??

Jeg er nu begyndt at sidde og lege lidt med de koder i har lavet og er så stødt på et problem (foreløbigt :-)).

Hvordan får jeg mulighed får at bruge koden i flere rækker A,B,C etc. ?? (jeg har forsøgt mig frem med at kopiere den og rename den, men uden held...)

/martin

,

Du skal ikke kopiere koden flere gange, den har det navn, den skal have Og husk at den skal være i arkets modul.

du retter bare her

Set rEnteringRange = Range("A1:A500")

til feks

Set rEnteringRange = Range("A1:C500")

Forskellen er at min kode laver om på formatet på cellen, smartoffice laver en tekststreng, som ikke kan regnes på.

Hey...

1000 tak for hjælpen - det spiller perfekt.

Der er noget med nogen point som du fuldt har fortjent, men jeg ved ikke lige hvad jeg skal gøre...

/martin