blad toevoegen en bladnummer aanpassen

[Ron321]

Ik heb een bestand met 7 bladen waarbij het soms nodig is om extra bladen toe te voegen genaamd lijst.
Daarbij moet ook het bladnummer in cel A1 aangepast worden van blad 4b van 6 naar blad 4c van 6 en bij de volgende naar 4d van 6 enz enz.

Nu heb ik een macro opgenomen maar weet niet hoe ik verder moet.

Ook is er nog het probleem dat het laatst bijgevoegde blad steeds voor de conclusie plaats moet krijgen.

Voor verduidelijking zie bijlage.

Ik hoop dat iemand me hiermee wil helpen, alvast bedankt.

 

[Cobbe]

Kom je niet weg met deze nummering?

Sub Macro2()
'
    Sheets("lijst").Copy Before:=Sheets("conclusie")
    Range("A1").Select
    aantalbladen = Sheets.Count
    ActiveCell.FormulaR1C1 = "Blad " & aantalbladen - 5 & " van " & aantalbladen
    Range("A2").Select
End Sub

Cobbe

 

[Ron321]

Bedankt voor je reactie.

Ik wil de telling hanteren met a, b, c enz. omdat in mijn originele bestand op het voorblad een inhoudsopgave staat.

Maar ik ga eens experimenteren met jouw macro om daar een oplossing voor je bedenken.

Een gedeelte van m'n problemen is in ieder geval al opgelost waarvoor dank.

 

[Ron321]

Bedankt voor je voorzetje, het is gelukt met wat aanpassingen.
:thumb: