Àutomatiskt löpnummer i Excel

[Martassen]

Kan man på nått vis få ett löpnummer i en cell i Excel. Öppnar jag filen så står det siffran 1. Öppnar jag den andra gången så får den siffran 2 i cellen.

 

VBA?

 

[Joreimer]

Ja du kan skriva ett litet VBA-program:

 

Private Sub Workbook_Open()
Sheets("Blad1").Range("a1").Value = Sheets("Blad1").Range("a1").Value + 1
Application.ActiveWorkbook.Save
End Sub

 

Hälsn J