Fakturanummer i excel regneark

Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel

    filnummer = FreeFile
    Dim Fakturanummer As String
   
If IsEmpty(Range("i15").Value) Then
    Open "C:\Documents and Settings\MLHave\Dok\Faktura\fakturanr\nummer.txt" For Input As #filnummer
    Line Input #filnummer, Fakturanummer  'Putter 1. linie ind i Varenummer
    Close #filnummer
    Range("i15").Select
    ActiveCell.Value = Val(Fakturanummer) + 1
End If

Load frmFakturadata

End Sub

Sub auto_close() 'Denne sub køres automatisk når regnearket lukkes i Excel

    Dim filnummer As Integer
    filnummer = FreeFile

If IsEmpty(Range("i15").Value) Then
    Exit Sub
Else
    Range("i15").Select
   
    Open "C:\Documents and Settings\MLHave\Dok\Faktura\fakturanr\nummer.txt" For Output As #filnummer
    Print #filnummer, ActiveCell.Value 'Skriver indholdet af celle A2 til filen
    Close #filnummer
End If

End Sub

Jeg gemmer dem i et skjult ark f,eks. i kolonne A og så under hinanden:
Det gøres f. eks. ved udskrivning

Når jeg så vil havet nyt er det såmænd. =MAKS(Ark2!A:A)+1

Indsæt ovenstående i et modul i dit regneark og tilpas stierne til din egen PC.
Du skal oprette en txt-fil i det blibliotek filerne peger på og skrive fx. 1 i første linie.

I koden henviser jeg til celle "i15", det er der jeg har mit fakturanummer.

Det der sker er, at når du åbner skabelonen koden ligger i, så kigger den i cellen i15, hvis den er tom, skrives nummeret der står i txt-filen i cellen efter der er lagt 1 til.
Når du lukker regnearket skrives den værdi der står i celle i15 ud i txt-filen - klar til næste faktura.

Hej du

Det lyder som det jeg havde forestillet mig.
Men i det øjeblik du siger to ting: Modul og skjulte ark, står jeg af :-)
Men resten fiser ret godt ind.

Hej igen.

Jamen jeg vil helt vildt gerne vide noget mere om det du skriver om!
Jeg kan formodentligt kopiere programkode ind i et "Modul" men det er ret svært når man ikke kan finde et sådant nogen steder - forstår du hvad jeg mener :-)

På forhånd tak

Tryk ALT+F11, så er du inde i VBA

vælg indsæt modul

der sætter du koden ind

husk at rette koden til inden du gemmer

Husk også at oprette den fil der henvises til, det gør du i notepad, skriv et 0 i første linie, gem så

Nu virker det!

Tak for hjælpen

Lukketid ?

Spørger lige til dette gamle spørgsmål da det er relevant for mig også nu :-)
Har prøvet koden af, men den fejler ved "Load frmFakturadata". Også selvom jeg stadig bruger Office 2003. Nogen som kan gennemskue fejlen? Jeg aner intet om VBA så jeg er blank!