Re: [nl-users] Re: Relatief refereren aan een sheet

Hallo Johan,

Ik heb een stukje code om met behulp van een functie de bladnaam van het 
vorige blad te krijgen.

=============================================================================================
Public Function VorigeBlad() as string

    Dim Document as Object
    Dim Bladen as Object
    Dim lengte as integer
    Dim teller as integer
    Dim positie as integer

    Document = ThisComponent
    Bladen = Document.Sheets
    lengte = Bladen.Count

    positie = 99

    For teller = 0 to (lengte -1)
        If Document.CurrentController.ActiveSheet.name = 
Bladen.getByIndex(teller).name Then
            positie = teller-1
        End if
    next teller

    if positie>=0 and  positie <99 then

        VorigeBlad = Bladen.getByIndex(Positie).name
    else
        VorigeBlad = "verkeerde waarde"
    End if

End Function
=================================================================================
Als je het onder de extra, macro's, macro's, Libreoffice Basic in een 
nieuwe module van je werkboek plakt, kan je de functie =VORIGEBLAD() in 
een werkblad gebruiken. Deze waarde kan je dan weer in je standaard 
verwijzingsfuncties gebruiken, die anderen reeds hebben beschreven. Deze 
code gebruikt dezelfde volgorde als je in de tabjes onderaan je scherm 
ziet. Als je werkboek meer dan 100 bladen bevat, moet je die 99 even 
ophogen.

Laat je nog even weten of je hier iets aan hebt?

Groeten,
Chris

Op 10-03-12 22:28, Alex Plantema schreef:
> Op zaterdag 10 maart 2012 21:28 schreef Johan Vromans:
>
> > Het voorbeeld dat ik gaf, van Jantje, Pietje en Klaasje waar Marietje
> > tussen wordt geplaatst, is heel concreet en illustreert alle
> > beperkingen. De functie BLAD is bruikbaar, want BLAD(A1) levert het
> > blad nummer van dit werkblad. Maar de tegenhanger, een INDIRECT
> > functie de een bladNUMMER gebruikt i.p.v. een bladNAAM is er niet.
>
> Dat is inderdaad een probleem. Maar het blijft allemaal theoretisch.
> Met een voorbeeld van wat je nu eigenlijk wilt is er misschien iemand 
> die een heel andere oplossing ziet.
>
> Alex.

--
Get Ubuntu <http://www.ubuntu-nl.org/> FireFoxIcon 
<http://www.mozilla.com/firefox/> ThunderbirdIcon 
<http://www.mozilla.com/thunderbird/>

De geschiedenis leert ons uiteindelijk alleen dit,
dat de mensen niets uit haar willen leren.

G.W.F. Hegel

--
Unsubscribe instructions: E-mail to users+help@nl.libreoffice.org
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/nl/users/
All messages sent to this list will be publicly archived and cannot be deleted