paginanummers

[Mark Peereboom]

Ik zit met het volgende probleem. Ik moet in een bepaalde
cel het paginanummer automatisch ingevoerd krijgen en dus
niet in de kop of voettekst. Ik heb dit al geprobeerd met
de code "&[pagina]" die ook in de kop- en voettekst wordt
gebruikt maar dit werkt niet. Ook heeft zoeken op
internet en de helpfunctie van Excel mij niet echt verder
geholpen. Weet iemand hier de oplossing voor?

[Ingrid Baplue]

Dat kan met behulp van een UDF (User Defined Function):

Function pagNr(blad As String) As Long
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
With Sheets(blad)
If .PageSetup.Order = xlDownThenOver Then
HPC = .HPageBreaks.Count + 1
VPC = 1
Else
VPC = .VPageBreaks.Count + 1
HPC = 1
End If
pagNr = 1
For Each VPB In .VPageBreaks
If VPB.Location.Column > Application.Caller.Column Then Exit For
pagNr = pagNr + HPC
Next VPB
For Each HPB In .HPageBreaks
If HPB.Location.Row > Application.Caller.Row Then Exit For
pagNr = pagNr + VPC
Next HPB
End With
End Function

kopieer deze code naar een module:
http://users.pandora.be/ingrid/excel/copyvba.htm#module

Je kan in de cel dan een dergelijke formule zetten:

=pagNr("Blad1")

--
Ingrid Baplue
Excel MVP
http://users.pandora.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Mark Peereboom schreef in 108901c42627$34b454f0$a101...@phx.gbl

[Mark Peereboom]

Beste Ingrid,

Deze functie zou in principe de klus moeten klaren maar
in mijn geval gaat het om een cel in een aantal rijen op
de eerste pagina die op de volgende pagina's terug komen
(optie "Rijen bovenaan op elke pagina" onder de pagina-
instellingen). Is het in dit geval ook mogelijk?

>.
>

[Ingrid Baplue]

En moet dat paginanummer er enkel staan bij het afdrukken of moet dat ook
wijzigen tijdens het navigeren op het scherm?

--
Ingrid Baplue
Excel MVP
http://users.pandora.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Mark Peereboom schreef in 168b01c426a5$5fc5e2c0$a001...@phx.gbl

[Mark Peereboom]

Het gaat inderdaad puur dat dit bij het afdrukken getoond
wordt. Tijdens het navigeren op het scherm is het niet
belangrijk.

>-----Oorspronkelijk bericht-----

>.
>

[Ingrid Baplue]

Twee mogelijkheden:

1) zet het paginanummer in de koptekst, en stel de marges zo in dat koptekst
en titelrij op een gelijke hoogte komt

2) via VBA, elke pagina moet dan afzonderlijk afgedrukt worden wat bij een
groot document tot een grote vertraging zal zorgen:

Sub drukken()
Dim p As Integer, aantal As Integer
aantal = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = 1 To aantal
Range("A1") = p
ActiveWindow.SelectedSheets.PrintOut From:=p, to:=p
Next p
End Sub

kopieer de macro naar een module:
http://users.pandora.be/ingrid/excel/copyvba.htm#module

--
Ingrid Baplue
Excel MVP
http://users.pandora.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Mark Peereboom schreef in 163501c426ba$1794d960$a601...@phx.gbl