Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe maak ik een dynamische lijst van werkbladnamen in Excel?

Als u meerdere werkbladen in een werkmap hebt en u een dynamische lijst wilt maken van alle werkbladen in een nieuw werkblad in de werkmap, hoe kunt u dat dan doen? Nu introduceert deze tutorial enkele trucjes om deze missie snel in Excel te voltooien.

Maak een dynamische lijst met werkbladnamen met Naam en formule definiëren

Maak een dynamische lijst van werkbladnamen met VBA-code

Maak een dynamische lijst van werkbladnamen met Kutools voor Excel goed idee3

Geef een dynamische lijst met werkbladnamen weer met Kutools voor Excel goed idee3


Navigatiedeelvenster - Werkboek & blad (bekijk alle open werkmappen zijn lijst en alle bladen
van het huidige werkboek zijn een lijst in het paneel, u kunt op de bladnaam klikken om er naartoe te schakelen.)

documentnavigatielijstblad
Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.


1. Selecteer een cel in een leeg vel, hier selecteer ik A1 en klik dan op Formules > Definieer Naam. zie screenshot:
doc-dynamic-worksheetname-list-1

formule Nooit meer zorgen maken over lange lange formules in Excel! Kutools for Excel's Auto-tekst kan alle formules aan een groep toevoegen
als autotekst, en bevrijd je hersenen! Klik hier om Auto Text te kennen Klik hier om een ​​gratis proefversie te krijgen

2. Dan in de Nieuwe naam dialoogvenster, type Sheets in de Naam tekstvak (u kunt wijzigen wanneer u dit nodig hebt) en typ deze formule = SUBSTITUTE (GET.WORKBOOK (1) "[" & GET.WORKBOOK (16) en "]", "") in het tekstvak Verwijst naar. Zie screenshot:
doc-dynamic-worksheetname-list-2

3. klikken OK. Ga naar de geselecteerde cel (A1) en typ deze formule = INDEX (Sheets, RIJEN ($ A $ 1: $ A1)) (A1 is de cel waarin u deze formule typt, "Bladen" is de naam die u in Stap 2 hebt gedefinieerd) en sleep de hendel voor automatisch aanvullen naar beneden totdat #REF! komt naar voren.
doc-dynamic-worksheetname-list-3

Tip: Als er werkbladen zijn verwijderd of toegevoegd, moet u naar A1 gaan en op de Enter-toets drukken en vervolgens de handgreep voor automatisch aanvullen opnieuw vodden.
doc-dynamic-worksheetname-list-4


Als u een dynamische lijst met werkbladnamen wilt maken die naar elk blad kan linken, kunt u VBA-code gebruiken.

1. Maak een nieuw werkblad en hernoem het als Index. Zie screenshot:

doc-dynamic-worksheetname-list-5 doc-dynamic-worksheetname-list-6

2. Klik met de rechtermuisknop op de bladnaam van Index, selecteer Bekijk code van contextmenu. Zie screenshot:
doc-dynamic-worksheetname-list-7

3. In het popping-venster, kopieer en plak hieronder VBA-code erin.

VBA: maak een dynamische lijst van werkbladnamen.

Private Sub Worksheet_Activate()
	'Updateby20150305
	Dim xSheet As Worksheet
	Dim xRow As Integer
	Dim calcState As Long
	Dim scrUpdateState As Long
	Application.ScreenUpdating = False
	xRow                       = 1
	With Me
		.Columns(1).ClearContents
		.Cells(1, 1) = "INDEX"
		.Cells(1, 1).Name = "Index"
	End With
	For Each xSheet In Application.Worksheets
		If xSheet.Name <> Me.Name Then
			xRow                     = xRow + 1
			With xSheet
				.Range("A1").Name = "Start_" & xSheet.Index
				.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
				SubAddress:             = "Index", TextToDisplay: = "Back to Index"
			End With
			Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
			SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
		End If
	Next
	Application.ScreenUpdating = True
End Sub

4. klikken lopen or F5 om de VBA uit te voeren, wordt nu een dynamische lijst met werkbladnamen gemaakt.
doc-dynamic-worksheetname-list-8

Tip:

1. Wanneer het werkblad van de werkmap wordt verwijderd of ingevoegd, wordt de lijst met namen van werkbladen automatisch gewijzigd.

2. U kunt klikken op de bladnaam van de namenlijst om naar het blad te gaan.

Met bovenstaande twee methoden zijn niet voldoende handig, als u geïnteresseerd bent in nieuwe hulpprogramma's, kunt u de volgende twee methoden gebruiken die deze taak gemakkelijker kunnen maken.


Als u alleen snel alle werkbladnamen van de werkmap wilt weergeven en deze aan de originele werkbladen wilt koppelen, kunt u deze gebruiken Kutools for Excel's Lijst met bladnamen maken.

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

Na gratis installatie Kutools voor Excel, doe het als volgt:

1. klikken Enterprise > Werkblad > Lijst met bladnamen maken. Zie screenshot:

doc dynamische werkbladnaam 17

2. In de Lijst met bladnamen maken dialoogvenster:

doc-dynamic-worksheetname-list-10
(1) Controleer de indexstijl die u nodig hebt Sheet Index Styles sectie;
(2) Geef het nieuwe indexblad een naam met de gegevens in Geef de bladnaam op voor de Bladindex tekstvak;
(3) Geef de locatie op waar u het toegevoegde indexblad in wilt plaatsen Plaats de bladindex erin lijst;
(4) Als u de bladnamen in één lijst wilt weergeven, selecteert u de kolom 1 in Bladinvoer weergeven in lijst.

3. klikken Ok. Nu kunt u zien dat de bladnamen worden vermeld.
doc-dynamic-worksheetname-list-11

Tips:

1. U kunt op de bladnaam klikken om snel naar het originele blad te gaan.

2. De lijst- of bladnamen kunnen niet dynamisch worden gewijzigd als de vellen worden ingevoegd of verwijderd.

3. Eigenlijk kunt u ook een lijst met knoppen maken om het relatieve blad te koppelen. U hoeft alleen maar te controleren Bevat knoppen en macro's in het dialoogvenster. zie screeshshot:
doc dynamische werkbladlijst 16

Klik hier voor meer informatie over Lijst met bladnamen maken.


Als je met Kutools for Excel, je kunt ook de Navigatie hulpprogramma om de koppelbare werkbladnamen in een venster weer te geven

Na gratis installatie Kutools voor Excel, doe het als volgt:

1. klikken Kutools > Navigatie. Zie screenshot:
doc-dynamic-worksheetname-list-12

2. Vervolgens verschijnt een venster in het actieve blad, klik Werkboek & blad om de werkmap en het werkblad weer te geven en u kunt een werkmap selecteren, waarna de werkbladen in de werkmap worden weergegeven Navigatie ruit. Zie screenshots:

doc-dynamic-worksheetname-list-13 doc-dynamic-worksheetname-list-14

Tip:

Wanneer er werkbladen zijn verwijderd of toegevoegd, kunt u klikken op de knop vernieuwen in de Navigation paneel om de werkbladnamen te verversen.
doc-dynamic-worksheetname-list-15

Klik hier voor meer informatie over navigatie.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kelly · 1 years ago
    Thanks for this helpful info. I created a dynamic list with VBA code in the Index tab. I found that it only updates when I click back to the Index tab, though. Is there a way to ensure it auto updates as soon as a new tab is created? I refer to the tab names elsewhere in the workbook and others will be using it so I'm trying to make it seamless. Thank you!
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry, I do not find that code can finish your job.
  • To post as a guest, your comment is unpublished.
    Ed Bower · 1 years ago
    Or you can simply rightClick either the left or right tab-horizontal-scroll arrow at the bottomLeft, and then click the worksheet name (from the simple vertical list) that you want to jump to.
  • To post as a guest, your comment is unpublished.
    PB · 1 years ago
    Just what I needed and worked perfectly. Thank you!
  • To post as a guest, your comment is unpublished.
    KP · 2 years ago
    Defining the name "Sheets" in the define name DOES NOT WORK. The "refers to" box will not save the formula as typed and converts it to a text string.
  • To post as a guest, your comment is unpublished.
    j4h54n84 · 2 years ago
    how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
  • To post as a guest, your comment is unpublished.
    Cindy · 2 years ago
    Thank you. It is very useful. :D
  • To post as a guest, your comment is unpublished.
    Nash · 2 years ago
    How can i remove the links to each sheets and how to not include the "sheet1" and "Index" sheet?

    Private Sub Worksheet_Activate()
    'Updateby20150305
    Dim xSheet As Worksheet
    Dim xRow As Integer
    Dim calcState As Long
    Dim scrUpdateState As Long
    Application.ScreenUpdating = False
    xRow = 1
    With Me
    .Columns(1).ClearContents
    .Cells(1, 1) = "INDEX"
    .Cells(1, 1).Name = "Index"
    End With
    For Each xSheet In Application.Worksheets
    If xSheet.Name Me.Name Then
    xRow = xRow + 1
    With xSheet
    .Range("A1").Name = "Start_" & xSheet.Index
    .Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
    SubAddress: = "Index", TextToDisplay: = "Back to Index"
    End With
    Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
    SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
    End If
    Next
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Matt · 2 years ago
    How would I go about editing this code to include a checkbox to the left of the link that I could use to hide rows on a cover sheet? Also how could I insert a row on the worksheets below A1 to have the return to index link show up there?