robinvdveeken
Gebruiker
- Lid geworden
- 7 sep 2010
- Berichten
- 84
Gewaardeerde veelwetenden,
Inmiddels heb ik een groot Excelbestand met veel pagina's.
En ook een inhoudsopgave van de diverse werkbladen.
Er is één werkblad met meer dan 2500 regelnummers.
Een overzichtje van de paginanummers is dus meer dan welkom.
Ik maak een soort van index door het volgende te doen:
Nu zou ik graag het paginanummer van deze tekst in kolom D toevoegen.
Helaas kan ik niets vinden over pagebreaks tellen met een voorwaarde. Een soort van:
Ik snap dat dit wel heel eenvoudig lijkt, misschien wel te mooi om waar te zijn maar er moet toch iets voor zijn :d
Wel lees ik dat paginanummering en inhoudsopgave al meer flinke uitdagingen heeft veroorzaakt.
Iemand ideeën?
Alvast bedankt.
Groeten,
Robin
Inmiddels heb ik een groot Excelbestand met veel pagina's.
En ook een inhoudsopgave van de diverse werkbladen.
Er is één werkblad met meer dan 2500 regelnummers.
Een overzichtje van de paginanummers is dus meer dan welkom.
Ik maak een soort van index door het volgende te doen:
Code:
Sub Inhoudsopgave()
Dim NaamHoofdstuk As String
Dim NaamSubkop As String
Dim Hoofdstukregel As Range
Dim rRange As Range
Dim i As Integer 'regel op inhoudsopgave
'init
Set rRange = Worksheets("Front").Range("A81", Worksheets("Front").Range("A65536"))
i = 84 'eerste startregel inhoudsopgave
Range("A82:D125").ClearContents
With Application
.ScreenUpdating = False
End With
For Each Cell In rRange
If Cell.Font.Size = 18 Then
i = i + 1
Range("A" & i) = Cell.Value
End If
If Cell.Font.Size = 14 Then
i = i + 1
Range("B" & i) = Cell.Value
End If
Next Cell
With Application
.ScreenUpdating = True
End With
End Sub
Nu zou ik graag het paginanummer van deze tekst in kolom D toevoegen.
Helaas kan ik niets vinden over pagebreaks tellen met een voorwaarde. Een soort van:
Code:
Range("D" & i) = Page.actual
Wel lees ik dat paginanummering en inhoudsopgave al meer flinke uitdagingen heeft veroorzaakt.
Iemand ideeën?
Alvast bedankt.
Groeten,
Robin