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
Context
Mailbericht komt niet goed over (WAS Re: [nl-users] Relatief referen aan een sheet) · Cor Nouws
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.