overzicht tabbladen in bestand

[John van Herk]

Is er iemand die een oplossing heeft voor het weergeven van alle aanwezige tabbladen in een bestand?
Ik wil nl graag in het eerste blad (bijv. inhoudsopgave) de namen van alle tabbladen laten zien.

BvD,

John

 

[Wigi]

Sub wigi()
    Dim ws As Worksheet
    For Each ws In Sheets
        Range("A1").Offset(ws.Index - 1).Value = ws.Index
        Range("B1").Offset(ws.Index - 1).Value = ws.Name
    Next
End Sub

Wigi

 

[John van Herk]

Wigi,

je bent inderdaad Mega Honourable.

Bedankt.

 

[jpvs]

Nog een tip als je met veel tabbladen werkt is het gemakkelijk om met hyperlinks te werken.

http://vbaexpress.com/kb/getarticle.php?kb_id=16

Vanaf Blad2 tot het laatste blad komt er in cel A1 "Back to Index" te staan.

Pierre

 

[lilly2006]

Ik heb nog een aanvullende vraag.

Nu komt er in Kolom A een lijst van alle tabbladen te staan. Maar nu wil ik ook nog dat hij in kolom B de gegevens haalt uit cel C4 uit het daarnaast genoemde tabblad.

Weet iemand hoe ik dit moet doen?

Thanks

 

[Wigi]

Zie Pierre's antwoord.