EXCEL - Automtisk stigende nummerering i én celle

[sandman]

Finnes det noe måte som gjør at verdien i én celle automtisk stiger hver gang dokumentet blir lagret?

 

Altså første gangen man lagrer et ark så inneholder celle A tallet 1. Neste gang man lagrer arket så blir tallet 2 i celle A, gangen etter det får celle A tallet 3 osv?

 

Bruker Excel 2007.

[Harald Staff]

En Excelfil inneholder gjerne mange ark, og de lagres ikke separat. Men la oss si at du snakker om "Ark1" celle C14. Plasser denne koden i ThisWorkbook-modulen:

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Ark1").Range("C14").Value = Val(Sheets("Ark1").Range("C14").Value) + 1
End Sub

 

HTH. Beste hilsen Harald