Der er fejl i dette autonummering prg.

Hej.

Er der en venlig sjæl der vil hjælpe mig med at finde ud af hvad det er jeg her lavet galt i denne vba kode.

Jeg kan ikke få den til at lave auto nummering. Kun hvis jeg ændre i linien hvor den ser efter om der står et nummer i forvejen.

Det indvirker på at den laver nyt nummer når jeg åbner filen igen.

Håber der er en der kan se hvad der er lavet af fejl i koden. Koden er en jeg har fundet her inde, under spørgsmålet : http://www.eksperten.dk/spm/388759, og det var bak der var med til at hjælpe hende igennem hendes spørgsmål den gang.

Dette er lagt ind under thisworkbook:


Private Sub Workbook_Open()
If Sheets("Rapport").Range("D8") > 1 Then Exit Sub
RapNr
End Sub


Og dette under et modul ( ikke ind under fanbladet kaldt Rapport.

Sub RapNr()
Dim RapFil
Dim NyNr
Dim GiNr

    RapFil = "G:\rap.txt"
    Open RapFil For Input As #1
    Line Input #1, GiNr
    Close #1
    Open RapFil For Output As #1
    NyNr = Val(GiNr) + 1
    Print #1, NyNr
    Close #1
    Range("D8").Value = NyNr
   
End Sub