Automatisch projectnummer aanpassen

[Leon19]

Beste allemaal,

Ik wil vanuit een text file op mijn bureaublad een nummer uitlezen en deze in een cel invoer in Excel.
Dit is gelukt, echter zou ik graag willen dat het nummer automatisch een nieuw nummer word met een waarde van + 10.

Als dit is gebeurd moet de text file ook weer opgeslagen worden op dezelfde locatie met het nieuwe nummer.

Kan iemand mij hier bij helpen?

Alvast bedankt.


Bijgevoegd:
- Excel bestand met code van de macro
- De text file (opgeslagen op het bureaublad)

 

[edmoor]

Er staat altijd maar 1 regel in dat tekst bestand?

Sub AutomatischProjectnummer()
    Open "C:\Users\Leon\Desktop\Project nummer.txt" For Input As #1
    Line Input #1, TXT
    Sheets("Blad1").Range("C2") = TXT
    Close #1
    
    Open "C:\Users\Leon\Desktop\Project nummer.txt" For Output As #1
    Print #1, TXT + 10
    Close #1
End Sub

Maar waarom een apart tekst bestand?

 

[Leon19]

Hartstikke bedankt, dit werkt perfect.

Een apart bestand omdat dat de opdracht was die mij is gegeven .
Zou het makkelijker zijn om dit standaard in de code te zetten?

Zo ja, hoe?

 

[edmoor]

Dat kan gewoon in het document zelf.

 

[Leon19]

Oke, dan ga ik dat even proberen. In ieder geval hartelijk bedankt voor je hulp!!

 

[edmoor]

Voorbeeldje voor je:

 

[Leon19]

Erg handig inderdaad!

Ik ga dit ook zeker gebruiken, hartelijk bedankt!!