jantoedeledoki
Gebruiker
- Lid geworden
- 22 dec 2010
- Berichten
- 36
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:
Bij voorbaat dank
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:
Code:
'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