Automatisch paginanummers toevoegen aan Excel-sheets

[jantoedeledoki]

Hallo,

Ik ben bezig met een Excel Workbook die uit 25 Sheets bestaat (met de namen 1 t/m 25).
In UserForm1 heb ik bepaald dat ik de Sheets 1 t/m 10 nodig ben. In de code is dit Totaalpaginas.
In UserForm1 heb ik bepaald dat mijn paginanummering moet beginnen met 3. In de code is dit Begin.
Nu wil ik op de Sheets 1 t/m 10 in Cell D59 het paginanummer met Begin op Sheet 1 en in Cell D61 Totaalpaginas.

Onderstaande code is een richting die ik op wil, maar kom er niet uit:

'Pagina's nummeren
    Dim Teller As Long
    Teller = Begin
    Dim R As Long
    For R = 1 To Totaalpaginas
    Sheets(R).Select
    Range("D59").Value = Teller
    Range("D61").Value = Totaalpaginas
    Teller = Begin + 1
    Next R

Bij voorbaat dank

 

[OctaFish]

Als je en de lus elke keer de teller instelt op Begin+1, kom je met Teller nooit boven de 4 uit. Ik vermoed dat je zoiets zoekt:

Dim Teller As Integer, r As Integer
Const Begin As Integer = 3
Const TotaalPaginas As Integer = 10
    
    Teller = Begin
    For r = 1 To TotaalPaginas
        With Sheets(r)
            .Range("D5").Value = Teller
            .Range("D6").Value = TotaalPaginas
        End With
        Teller = Teller + 1
    Next r

 

[jantoedeledoki]

Dank u voor de reactie, maar dit is niet helemaal de oplossing.
Begin is namelijk geen constante, maar een variabele die bepaald wordt in UserForm1.
Ditzelfde geldt ook voorTotaalpaginas. Maar dit probleem heb ik ondertussen verholpen.
Ik loop nu nog vast op het feit dat de paginanummering nu begint op de fysieke eerste pagina. Echter staat er vóór mijn Sheet met de naam 1, in dit geval nóg een Sheet die niet meegenomen moet worden in de nummering.
Voorlopig kan ik dit nog oplossen door
Teller = Begin + 1
De oplossing zou waarschijnlijk zijn wanneer r zou staan voor de naam van Sheets.

 

[Warme bakkertje]

For r = 2 To TotaalPaginas + 1

 

[jantoedeledoki]

Zo had ik het na een middagje puzzelen inderdaad opgelost.
Toch bedankt voor de reactie.