• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

inhoudsopgave

Status
Niet open voor verdere reacties.

Dollie

Gebruiker
Lid geworden
15 jul 2002
Berichten
193
Hallo,

Is het binnen excel mogelijk om net als in word door middel van verwijzingen een inhoudsopgave te maken?
 
Hoi,

Natuurlijk is dat mogelijk, maar waarom zou je dat willen. Voor het schrijven van een verslag of een boek kun je veel beter Word gebruiken.

Jeroen
 
Bedoel je iets in de trant van, op tabblad 1 staan de naam van tabblad 2, 3, 4 etc netjes in een lijstje.

Je kunt met Excel hyperlinks maken, ook naar andere tabbladen; invoegen, hyperlink, klik op de tweede bladeren, dus van benoemde locatie in bestand, je kunt nu een ander tabblad kiesen en zelfs een bepaalde cel.
Daarna kun je eventueel de naam van de hyperlink nog aanpassen.

Met behulp van een macro zou het zelf wel mogelijk moeten zijn dit grotendeels geautomatiseerd te doen.
Dus kies en cel, start de macro en krijg een lijst met hyperlinks naar de andere tabbladen.

N.b. laat eerst even weten of dat is wat je zoekt, voor dat ik verder ga kijken...
 
Mocht je bovenstaande uitleg bedoelen kun je deze macro gebruiken.

Druk op [ALT]+[F8] = nieuwe macro.
Geef je macro een naam bv index en druk op [Enter]
de macro editor opent en toon de volgende tekst;
Sub index()
End Sub

verander dit in;
Sub index()
For i = 1 To Worksheets.Count
If Worksheets(i).Visible = True Then
ActiveCell = Worksheets(i).Name
End If
ActiveCell.Offset(1, 0).Activate
Next
End Sub

Na het starten van je macro wordt een tabbladen lijst gemaakt. Start punt is de cel waar je op dat moment in staat.

Wil je index met hyperlinks kun je de volgende macro tekst gebruiken
Sub index()
For i = 1 To Worksheets.Count
If Worksheets(i).Visible = True Then
ActiveCell = Worksheets(i).Name
End If
ActiveCell.Offset(0, 1).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Worksheets(i).Name & "!A1"
ActiveCell.Offset(1, -1).Activate
Next
End Sub

N.b. je zou dan eigenlijk wel op elk tabblad een soort home button of hyperlink moeten hebben om snel weer terug te gaan naar je index pagina...
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan