Automatisk tildeling af løbenummer

Man kunne jo lave en makro, der lægger en til løbenummeret hver gang man trykker på en knap. Så skal man bare huske at gemme arket når man lukker arket for at der ikke det samme løbenr. Interesseret?

ASKIMS

Det lyder spændende men hvordan???

//Niels

Har du kendskab til makroer?

JA.

Niels

Så har jeg lige lavet en lille makro:

Sub foroelbnr()
Dim lbnr As Integer
    lbnr = Range(\"a1\").Value
    lbnr = lbnr + 1
Range(\"a1\").Value = lbnr
ActiveWorkbook.Save
End Sub

I denne har jeg forudsat at løbenr står i celle a1. Det den gør er at forøge løbenummeret med en også gemmer den arket, så er man fri for at tænke på, om man nu har gemt arket med det nye løbenr.

Du skal indsætte denne sub i et modul til dit regneark, dette gøres fra vba. Derefter laver du en knap i arket og henviser til denne sub.