Paginanummering excel!!!

[JJH]

Ik heb een dringende vraag. Ik heb een rapport in excel (verschillende tabbladen) met liggende pagina's en pagina's rechtop. Nu wil ik de paginanummering onder aan de korte zijde hebben. Dus ook bij de liggende pagina's....
gaat dit? en Hoe????

groeten en alvast bedankt.
Joyce

 

[danny147]

Beste JJH

Werk je met excel 2003 of 2007 ?

Anders doe je dit voettekst.

Groetjes Danny. :thumb:

 

[JJH]

Hallo Danny,

volgens mij 2003 (ieg geen 2007). Ik ken de voettekst wel, maar normaal gesproken staat hij bij een liggende pagina aan de lange zijde (onderkant). Ik wil hem aan de korte zijde (zijkant), omdat ik het hele rapport rechtop heb staan.

groetjes

 

[danny147]

Beste, JJH

Dat is volgens mij niet mogelijk.

Je kan in excel altijd een kolom aan de linkerzijde toevoegen en daar een paginanummer plaatsen en mee laten afdrukken.

Groetjes Danny. :thumb:

 

[JJH]

Dat klop inderdaad. Zo doen we het nu, maar het probleem is dat je steeds alles handmatig moet controleren en aanpassen. Ik had gehoopt dat je dat op een andere manier kon doen...

 

[Warme bakkertje]

Met deze functie van Ron De Bruin bepaal je automatisch het paginanummer

Function PageNumber() As Integer
    Dim VPC As Integer, HPC As Integer
   Dim VPB As VPageBreak, HPB As HPageBreak
   Dim NumPage As Integer
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
       HPC = ActiveSheet.HPageBreaks.Count + 1
       VPC = 1
   Else
       VPC = ActiveSheet.VPageBreaks.Count + 1
       HPC = 1
   End If
   NumPage = 1
   For Each VPB In ActiveSheet.VPageBreaks
       If VPB.Location.Column > ActiveCell.Column Then Exit For
       NumPage = NumPage + HPC
   Next VPB
   For Each HPB In ActiveSheet.HPageBreaks
       If HPB.Location.Row > ActiveCell.Row Then Exit For
       NumPage = NumPage + VPC
   Next HPB
    PageNumber = NumPage
End Function

 

[JJH]

.....hellup....dat gaat me dus net te ver....

Er is dus geen makkelijke manier....of is dit toepassen ook redelijk makkelijk en zie het er moeilijker uit dan het is...(ik kan wel macro's opnemen, maar zodra hier iets in gewijzigd is/moet worden ben ik de kluts kwijt , meer kan ik daar niet in)

Bedankt ...

 

[Warme bakkertje]

Voorbeeldje

 

[JJH]

werk dit ook als ik met verschillende tabbladen werk?
Ik denk dat ik hier in elk geval al weer beter mee uit ben dan de huidige methode.
Dankje!!

 

[Wigi]

werk dit ook als ik met verschillende tabbladen werk?

De code zal niet over de tabbladen heen doortellen.

 

[matthiej88]

Met deze functie van Ron De Bruin bepaal je automatisch het paginanummer

Function PageNumber() As Integer
    Dim VPC As Integer, HPC As Integer
   Dim VPB As VPageBreak, HPB As HPageBreak
   Dim NumPage As Integer
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
       HPC = ActiveSheet.HPageBreaks.Count + 1
       VPC = 1
   Else
       VPC = ActiveSheet.VPageBreaks.Count + 1
       HPC = 1
   End If
   NumPage = 1
   For Each VPB In ActiveSheet.VPageBreaks
       If VPB.Location.Column > ActiveCell.Column Then Exit For
       NumPage = NumPage + HPC
   Next VPB
   For Each HPB In ActiveSheet.HPageBreaks
       If HPB.Location.Row > ActiveCell.Row Then Exit For
       NumPage = NumPage + VPC
   Next HPB
    PageNumber = NumPage
End Function

Hallo!

Ik heb deze functie gebruikt om de paginanummers te genereren. Hij geeft de nummers goed weer. Het probleem is alleen dat hij bij het doorvoeren niet automatisch het paginanummer berekend. dus stel, ik ga van pagina 2 naar 3, dan blijft hij op pagina 3 nummer 2 weergeven. Als ik dan F2 doe en enter druk, pakt hij m wel.

Ik heb wel automatisch berekenen aanstaan, dus daar ligt het niet aan.. heb je hier een oplossing voor?

Bedankt alvast!


Trouwens, als je m door wilt voeren over tabbladen gebruik je toch gewoon de functie
=pagenumber()+tabbladnaam!Celnaam ? ( bijv =pagenumber()+blad!A1 )

dan telt hij gewoon door.

 

[RaymondC]

http://www.mrexcel.com/archive/General/3168.html
http://www.mrexcel.com/archive/Printing/165.html
http://xl.barasch.com/AMu152924.htm (hier staat een vba code)

 

[matthiej88]

Bedankt voor de links, maar dit gaat over nummeren van de sheets. Die nummering komt wel goed.

't gaat erom dat ik een verwijzing kan maken naar het paginanummer. Bovenstaande code zorgt dat het paginanummer op de pagina zelf komt te staan, die cellen verberg ik, en ik maak een verwijzing in de inhoudsopgave naar deze cel. Logisch gezien komt dan het paginanummer in de inhoudsopgave te staan.

Het probleem is dat op de een of andere manier het paginanummer altijd naar 1 teruggaat als je wisselt tussen tabbladen of opslaat e.d. Ook klopt de verwijzing nog niet via zoeken.

In het bijgevoegde bestand is een simpele opzet van het originele bestand.

 

[matthiej88]

De oorzaak van de verandering van nummering heb ik al gevonden. Op de 1 of andere manier verwijst de functie naar het paginanummer van de laatst geactiveerde cel. dus als ik een cel op pagina 8 aanpas, begint de paginanummering bij 8.

snapt iemand deze functie goed genoeg om m zodanig aante passen dat hij het paginanummer pakt van de pagina waar de cel met functie staat?

 

[snb]

In jouw geval is dit voldoende:

Function pagina(c0 As Range)
  With Sheets("Inhoud")
    For jj = 1 To .HPageBreaks.Count
      If .HPageBreaks(jj).Location.Row > c0.Row Then Exit For
    Next
    pagina = jj
  End With
End Function

Zet in werkblad Inhoudsopgave in de cellen in kolom C:

=pagina(VERSCHUIVING(Inhoud!$C$1;VERGELIJKEN($B9;Inhoud!$C:$C;0)-1;0))
of
=pagina(INDIRECT(ADRES(VERGELIJKEN($B9;Inhoud!$C:$C;0);3;;;"Inhoud")))

 

[matthiej88]

Super! bedankt