Forgående værdi i en celle

Den husker den foregående, så længe du ikke har forladt celle, kan du trykke ESC, og den gamle kommer tilbage, hvis du først har forladt cellen, er der kun fortryd, der husker den.

OK, men er der ikke og kan man ikke lave en funktion som kan checke at der sker noget i den pågælden celle. Mit problem er at lige så snart man har tastet det første tal ind i cellen så forsvider den forgående værdi, er der ikke en funktion som kunne opfange dette ???

"så snart man har tastet det første tal ind i cellen så forsvider den forgående værdi".

Der der du kan bruge ESC (escape), så kommer værdien tilbage.

Ok, jeg sad lig og tænkte (til lykke med debuen), idet man har indtastet det nye tal i en celle, kan man jo bruge Ctrl-Z for at få den gamle værdi frem igen. Spørgesmålet er blot hvor bliver den værdi gemt ???

Derved har jeg jo den forgående værdi som jeg gerne skulle bruge !!!!

Hvad skal du bruge den gamle værdi til, hvis det ikke var fordi du fortrød indtastningen.?

Velkommen som ny bruger, og lige et par hint.

Man giver ikke svar som spørger, kun kommentarer, svar gives kun hvis man tager point tilbage, når der ikke kommer en løsning på problemet.
Personlig lægger jeg også kommentarer, indtil spørgeren beder om svar.

Der er oprettet en ugeoversigt for hvad de for skellige medarbejderer skal lave dette får de at vide ud fra et sags nummer, som så står ud for deres navn og den dato det skal laves. længere nede er der så en oversigt over hvad de forskellige sags numre betyder. Hvis dette sags nummer bliver slettet skal det og slettes ud for de medarbejdere som skulle have lavet den pågældende sag.

p.s. tak for info

1. Højreklik på arkets fane
2. Vælg menupunkt "Vis programkode"
3. Indsæt koden herunder i vindue (alt mellem stjernerne)
4. ALT+q returnerer til arket
Viser gammel værdi nede i statusbar når en værdi ændres

'*
Dim x, cl

Private Sub Worksheet_Change(ByVal Target As Range)
Application.StatusBar = "Gammel værdi i celle " & cl & " var : " & x
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Value: cl = ActiveCell.Address
End Sub
'*

Umiddelbart ser det ud til at virke, så hvoledes overfører jeg points til dig ??

marker navn på den som skal have point og klik accepter

husk lige at lukke