bruge et forløbende nummer i alle ark i mappe

Mener alle faner i mappe

Hvordan faktureres der?

det er bare et omsætningsark skal bare have fakturanummret på

hvis du forstod - det er ikke fordi der skal faktureres.
Men vil gerne kunne vide hvad nummer jeg er nået til uden at skulle kigge alle fanerne igennem.

Ok - der kunne evt. oprettes et ark som det første, der indeholder det sidst anvendte nr. Det der så skal til, er at "kunne se" hvornår du tildeler et fakturanr.

Det kunne gøres via en knap eller en lille Userform, der kunne vise det aktuelle fakturanr - uanset hvilken fane du måtte være på. En knap herpå kunne aktivere nummeret og optælle dette.

altså jeg laver en fane forrest? Med det seneste nummer? Så kan jeg jo bare rette det når jeg laver et nyt nummer men det kan iikke gå automatisk? Eller forstod jeg dig ikke?

Jeg forstår ikke hvor man laver den "knap" eller hvordan? Kan du sige hvor jeg kan finde information omkring dette?

M;en tak smid et svar læser op på dette, jeg fandt da en masse omkring userform - men kan dog ikke se, hvor det er i min excel 2007

Jeg konstrueres en lille model til dig i Office 2003. Userforms opbygges via VBA (Alt+F11)

Evt. send en mail (adresse under profil) så returnerer jeg filen

ThisWorkbook:
Private Sub workbook_activate()
    Load UserForm1
    UserForm1.Show 0
End Sub

I Userformen:
Private Sub CommandButton1_Click()      'Knappen er med blank Caption - her vises faktnr
Rem marker celle, der skal have faktnr. og klik på knappen
Rem Indsæt og optæl
    ActiveCell = Me.CommandButton1.Caption
    optælFaktNr
End Sub
Private Sub UserForm_activate()
Rem aflæs fakturanr fra arket FaktNr
    Me.CommandButton1.Caption = hentNæsteFakturaNr
End Sub
Private Function hentNæsteFakturaNr()
    With ActiveWorkbook.Sheets("FaktNr")
        hentNæsteFakturaNr = .Cells(1, 1)
    End With
End Function
Private Sub optælFaktNr()
Dim fakturaNr As Long
    With ActiveWorkbook.Sheets("FaktNr")
        fakturaNr = .Cells(1, 1) + 1
        .Cells(1, 1) = fakturaNr
        Me.CommandButton1.Caption = CStr(fakturaNr)
    End With
End Sub

pia-s@pc.dk million tak