Hej hej
Spara en textfil med ett ordernummer i, döp filen till myordernr. Ordernumret kan endast innehålla siffror och är begränsat till 10 siffor. Annars får man lösa det annorlunda.
Därefter kan man hämta nästa ordernummer med nedan funktion
Mvh
Christian
Function rwOrderNr() As Long
'Läs ut gammalt order nummer från textfil
Dim file As String: file = ThisWorkbook.Path & "\" & "myordernr.txt"
Dim txtF As Long: txtF = FreeFile
Open file For Input As txtF
Dim oldOrderNr As Long: oldOrderNr = Input(LOF(txtF), txtF)
Close txtF
'Läs in nya ordernumret till textfil
Open file For Output As txtF
Print #txtF, oldOrderNr + 1
Close txtF
'Returnera nya ordernumret
rwOrderNr = oldOrderNr + 1
End Function