• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Inhoudsopgave

  • Onderwerp starter Onderwerp starter hoex
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

hoex

Nieuwe gebruiker
Lid geworden
20 apr 2007
Berichten
3
Hallo

In Word kun je een automatische inhoudsopgave opnemen in een rapport. Nu heb ik in excel een verzameling (opeenvolgende) tabs die samen een rapport vormen, af te drukken via rapportbeheer. Is het mogelijk om in excel een vergelijkbare automatische inhoudsopgave te maken. Of is er een formule/macro die verwijst naar een paginanummer van een tabblad?

alvast dank!
 
Kijk hier eens
http://www.asap-utilities.com (gratis)
bevat ca. 300 handige routines; waaronder:
Na installatie >Information> Get active cell's pagenumber


Mvg

Piet

Dank Piet, deze oplossing komt in de buurt van wat ik zoek, maar nu wil ik het antwoord wat gegeven wordt na "Get active's cell page number" in een cel krijgen. Met de melding alleen kan ik nog niks...
 
Ik ken ook nog niet alle utilities.
Maar misschien komt dit in de buurt?
ASAPutilities>Sheets>Create an Indexpage.

Mvg

Piet
 
Ik ken ook nog niet alle utilities.
Maar misschien komt dit in de buurt?
ASAPutilities>Sheets>Create an Indexpage.

Mvg

Piet

Nope... hiermee word een tabblad gegenereerd met hyperlinks naar de overige tabs. Het gaat mij echt om de paginanummering. Stel tab1 bestaat uit 4 pagina's, tab2 uit 3 en tab 2 uit 2 pagina's (totaal dus 9 pagina's), dan wil ik een lijstje kunnen genereren met:

Tab1........pag. 1 (1e pagina vd 9 totaal)
Tab2........pag. 5 (5e pagina vd 9 totaal)
Tab3........pag. 8 (8e pagina vd 9 totaal)

Mark
 
Ik had ooit al eens gelijkaardige code geschreven:

Code:
Sub AantalPaginasTePrinten()

Dim ws As Worksheet
Dim iHpBreaks As Integer
Dim iVBreaks As Integer
Dim AantalPaginas As Integer

AantalPaginas = 0

For Each ws In Worksheets

    ws.Activate
    
    ws.PageSetup.PrintArea = ws.UsedRange.Address
    
    iHpBreaks = ws.HPageBreaks.Count + 1
    
    iVBreaks = ws.VPageBreaks.Count + 1
    
    AantalPaginas = AantalPaginas + iHpBreaks * iVBreaks
Next

    MsgBox AantalPaginas & " zullen geprint worden."

End Sub

Dit geeft het totale aantal pagina's dat wordt geprint. Maar door in de lus zelf de nodige dingen te zetten, zal je zeker een indexpagina kunnen maken. De paginanummers heb je nu al.

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan