Dato og tid, ved rettelse i felt!

VBA

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Range("a1") = Now
        End If
End Sub

Undskyld tast, jeg lige blander mig i dit spørgsmål.

Hej store-morten

"Låner" lige din vba kode. Kan den udbygges til at vise hvilken pc/ bruger der sidst har gemt i samme celle. Jeg ved det kan ses i egenskaber. Opretter et spørgsmål hvis du knækker den.

Prøv at se:
http://www.eksperten.dk/spm/528906?Esession=fb903a0199a3132acd0a361c270a887e

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Range("a1") = Environ("UserName") & " " & Now
        End If
End Sub

Der er flere muligheder:
Log som her
Der gemmer i en celle

Log
Der gemmer i et ark

Log
Der gemmer i et "Tekstdokument" (Notepad)
Med samme pladsering som Excel filen?

Og som i #3
Log
Der gemmer i en kommentar

Hej store-morten

Har oprettet et spørgsmål "point til store-morten" der kan du lige smide et svar. Vil du ændre $A$2 til A2:I68 (If Target.Address = "$A$2" Then)

store-morten -

Det virkede 100%,- det tog lidt tid at finde ud af da Mac ikke rigtig mere understøtter koder!??!?!?!
Så jeg smed det ind på en pc,- og så virkede det....

Jeg vil fordoble point,- hvis du kan hjælpe mig med at udvikle din kode lidt.....

Det jeg ønsker er at hvis der ændres i:
a2 så skal der komme ny dato i ah2
a3 så skal der komme ny dato i ah3
a4 så skal der komme ny dato i ah4
osv op til 100!

Ok..
Kikker på det, men kan ikke love noget ;-)

store-morten -

For en god ordensskyld skal jeg liiige være helt sikker på at vi forstår hinanden så du ikke spilder din tid ;)

Det jeg ønsker er at hvis der ændres i:
a2 så skal der komme ny dato i ah2
eller hvis man ændre f.eks i a3 så skal der komme ny dato i ah3
eller hvis man ændre f.eks i a54 så skal der komme ny dato i ah54
eller hvis man ændre f.eks i a85 så skal der komme ny dato i ah84
Der er brug for op til 100 rækker....

Mon ikke denne skulle kunne gøre det ønskede: