• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

doorlopend administratienummer

  • Onderwerp starter Onderwerp starter oofie
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

oofie

Gebruiker
Lid geworden
7 okt 2008
Berichten
17
Hallo forum,
ik heb een eenvoudige administratie en werk zowel in excel als in word.
Hoe kan ik een doorlopend administratienummer aan alle boekingen geven, want word en excel wordt door mekaar heen gebruikt.
Hoe weet ik wat het laatst gebruikte boekingsnummer is.
Is er een eenvoudige oplossing waar ik dat nummer zichtbaar kan maken, of misschien een kleine teller die ik op het buroblad kan plaatsen?
 
Je zult uw factuurnummer extern moeten opslaan.
Met volgende code zal dat wel lukken.

Code:
Private Sub Workbook_Open()
On Error GoTo ErrorHandler
Stap1:
Open "c:\teller.txt" For Input As #1
Input #1, x
Close #1
x = x + 1


Stap2:
Sheets(1).Range("A1").Value = x
Open "c:\teller.txt" For Output As #1
Write #1, x
Close #1


Exit Sub
ErrorHandler:
    Select Case Err.Number
        Case 53  'Voor als de teller.txt nog niet bestaat
            x = InputBox("Geef een factuurnummer om mee te beginnen", "Creeer 'teller.txt' File")
            Resume Stap2
        Case Else
            Resume Next
    End Select

End Sub

Een zelfde code zal je ook in je worddocument moeten gebruiken.

Cobbe
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan