Fortløbende nummerering af en formularskabelon i Excel

Muligheden kunne være en tekstfil, der indholder nummeret - indsættes og optælles - gemmes, når skabelonen åbnes.

Læg denne i skabelonens "This Workbook"-modul:

Private Sub Workbook_Open()
    Range("A1").Select
        Open "C:\mine_regneark_fakturaer\fakt.txt" For Input As #1
            Line Input #1, a$
        Close #1

    fak = Val(a$)
    fak = fak + 1
        Open " C:\mine_regneark_fakturaer\fakt.txt " For Output As #1
            Print #1, Str(fak)
        Close #1

    ActiveCell.FormulaR1C1 = Str(fak)

    Range("C3").Select ' Bare for at få markøren placeret et andet sted, så der ikke skrives i cellen
End Sub

Og gem skabelonen, så kører denne makro, hvergang skabelonen åbnes. Du skal sørge for at have en fil, der hedder "fakt.txt" og som bare indeholder et 0 (eller hvilket startnummer, du nu ønsker) og stien i makroen skal været rettet til at pege på denne fil. Filen skal selvfølgelig ligge på et fællesdrev, som alle brugere har adgang til.

Jeg forudsætter, at nummeret skal stå i A1. Ellers må du også lige rette til dér.

Se også: http://www.eksperten.dk/spm/727942

Er du kommet videre?