Oplopende nummering in Excel

[JoepEHV]

Hallo allemaal,

Ik wil in een excel bestand met een groot aantal sheets (±1200) een oplopend nummer per sheet toevoegen. Dus cel E8 op sheet 1 krijgt nummer 1, cel E8 op sheet 2 krijgt nummer 2 etc etc. Ik kan natuurlijk 1200 sheets handmatig gaan nummeren, maar dit moet veel sneller met een macro kunnen. Maar, wie weet hoe?

Alvast bedankt, JoepEHV

 

[Wigi]

WTF... :shocked: zeg je nu dat je 1200 sheets in 1 bestand hebt? :shocked:

 

[JoepEHV]

Hoi Wigi,
ja, dat klopt, het gaat om ongeveer 1200 sheets

 

[Wigi]

Moet dat echt? Kan je niet gegevens op een efficiënte manier samen zetten of veel minder tabbladen? Je loopt echt in de problemen zo hoor.

 

[Wigi]

Hier is alvast de code:

Sub zetnummer()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("E8") = ws.Index
    Next ws
    MsgBox "Klaar!"
End Sub

Doe iets aan het aantal sheets, anders heb je gegarandeerd vroeg of laat een corrupt bestand.

Wigi

 

[JoepEHV]

Tis gelukt! geweldig :thumb:
Ik heb al gegeken naar een oplossing voor het grote aantal sheets in 1 bestand. Je hebt gelijk, dit moet inderdaad anders.
gr, Joep

 

[Wigi]

Graag gedaan.

Laten we zeggen dat een ongeschreven regel is dat je niet boven de 50 gaat, en eigenlijk best niet meer dan 20. Gewoon in termen van gebruiksgemak gaat dat al heel veel verschil geven voor jou.

Wigi