Direkt zum Inhalt

Wie erstelle ich eine dynamische Liste von Arbeitsblattnamen in Excel?

Autor: Sun Letzte Änderung: 2020-05-07

Wie können Sie vorgehen, wenn eine Arbeitsmappe mehrere Blätter enthält und Sie eine dynamische Liste aller Blattnamen in einem neuen Blatt in der Arbeitsmappe erstellen möchten? In diesem Tutorial werden nun einige Tricks vorgestellt, mit denen Sie diese Mission in Excel schnell abschließen können.

Erstellen Sie eine dynamische Liste von Arbeitsblattnamen mit Name und Formel definieren

Erstellen Sie eine dynamische Liste von Arbeitsblattnamen mit VBA-Code

Erstellen Sie mit Kutools for Excel eine dynamische Liste von Arbeitsblattnamen gute Idee3

Zeigen Sie mit Kutools for Excel eine dynamische Liste von Arbeitsblattnamen an gute Idee3


1. Wählen Sie eine Zelle in einem leeren Blatt aus, hier wähle ich A1 aus und klicke dann auf Formeln > Name definieren. siehe Screenshot:
doc-dynamische-arbeitsblattname-liste-1

2. Dann in der Neuer Name Dialog, geben Sie ein Download In die Name und Vorname Textfeld (Sie können es nach Bedarf ändern) und geben Sie diese Formel ein = SUBSTITUT (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") in das Textfeld Bezieht sich auf. Siehe Screenshot:
doc-dynamische-arbeitsblattname-liste-2

3 Klicken OK. Gehen Sie zur ausgewählten Zelle (A1) und geben Sie diese Formel ein = INDEX (Blätter, Zeilen ($ A $ 1: $ A1)) (A1 ist die Zelle, in die Sie diese Formel eingeben, "Sheets" ist der Name, den Sie in Schritt 2 definiert haben) und ziehen Sie den Handle zum automatischen Ausfüllen nach unten, bis #REF! erscheint.
doc-dynamische-arbeitsblattname-liste-3

Tipp: Wenn Arbeitsblätter entfernt oder hinzugefügt wurden, müssen Sie zu A1 gehen und die Eingabetaste drücken, um den Griff zum automatischen Ausfüllen erneut zu aktivieren.
doc-dynamische-arbeitsblattname-liste-4


Wenn Sie eine dynamische Liste von Arbeitsblattnamen erstellen möchten, die mit jedem Blatt verknüpft werden können, können Sie VBA-Code verwenden.

1. Erstellen Sie ein neues Arbeitsblatt und benennen Sie es in Index um. Siehe Screenshot:

doc-dynamische-arbeitsblattname-liste-5       doc-dynamische-arbeitsblattname-liste-6

2. Klicken Sie mit der rechten Maustaste auf den Blattnamen von Index und wählen Sie Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
doc-dynamische-arbeitsblattname-liste-7

3. Kopieren Sie im Popup-Fenster den folgenden VBA-Code und fügen Sie ihn ein.

VBA: Erstellen Sie eine dynamische Liste von Arbeitsblattnamen.

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 Klicken Führen Sie or F5 Um die VBA auszuführen, wird jetzt eine dynamische Liste von Arbeitsblattnamen erstellt.
doc-dynamische-arbeitsblattname-liste-8

TIPP:

1. Wenn das Arbeitsblatt der Arbeitsmappe gelöscht oder eingefügt wird, ändert sich die Liste der Arbeitsblattnamen automatisch.

2. Sie können auf den Blattnamen der Namensliste klicken, um zum Blatt zu gelangen.

Mit den oben genannten zwei Methoden sind nicht bequem genug, wenn Sie an einem neuen Dienstprogramm interessiert sind, können Sie die nächsten zwei Methoden wählen, die diese Aufgabe möglicherweise einfacher machen.


 Wenn Sie nur schnell alle Arbeitsblattnamen der Arbeitsmappe auflisten und mit den Originalblättern verknüpfen möchten, können Sie verwenden Kutools for Excel Liste der Blattnamen erstellen.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen Plus > Arbeitsblatt > Liste der Blattnamen erstellen. Siehe Screenshot:

doc dynamischer Arbeitsblattname 17

2. In dem Liste der Blattnamen erstellen Dialog:

 doc dynamische Arbeitsblattname Liste 2
(1) Überprüfen Sie den Indexstil, den Sie benötigen Blattindexstile Sektion;
(2) Benennen Sie das neue Indexblatt mit der Eingabe der Daten Geben Sie den Blattnamen für den Blattindex an Textfeld;
(3) Geben Sie den Ort an, an dem Sie das hinzugefügte Indexblatt platzieren möchten Fügen Sie den Blattindex ein Liste;
(4) Wenn Sie die Blattnamen in einer einzelnen Liste anzeigen möchten, wählen Sie 1 Spalte in Anzeigen des Blattindex in Liste.

3 Klicken Ok. Jetzt können Sie sehen, dass die Blattnamen aufgelistet sind.
doc kutools erstellt eine Liste der Blätter 3

Tipps:

1. Sie können auf den Blattnamen klicken, um schnell zum Originalblatt zu wechseln.

2. Die Liste oder die Blattnamen können sich beim Einfügen oder Löschen der Blätter nicht dynamisch ändern.

3. Tatsächlich können Sie auch eine Liste mit Schaltflächen erstellen, um das entsprechende Blatt zu verknüpfen. Sie müssen dies nur überprüfen Enthält Schaltflächen und Makros im Dialog. siehe Screeshshot:
doc kutools erstellt eine Liste der Blätter 4

Klicken Sie hier, um mehr über das Erstellen einer Liste von Blattnamen zu erfahren.


Wenn Sie mit Kutools for Excelkönnen Sie auch die verwenden Navigation Dienstprogramm zum Anzeigen der verknüpfbaren Arbeitsblattnamen in einem Bereich

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen > Navigation. Klicken Sie Arbeitsmappe & Blatt Wenn Sie die Arbeitsmappe und das Arbeitsblatt anzeigen möchten und eine Arbeitsmappe auswählen können, werden deren Arbeitsblätter in der angezeigt Navigation Feld. Siehe Screenshot:
Dokumentnavigationsbereich 1   

TIPP:

Wenn Arbeitsblätter gelöscht oder hinzugefügt werden, können Sie auf klicken Aktualisieren Sie den Knopf Dokumentnavigationsbereich 2 der Navigationn-Bereich zum Aktualisieren der Arbeitsblattnamen.

Klicken Sie hier, um weitere Informationen zur Navigation zu erhalten.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo. hoe zou ik dit kunnen doen om hetzelfde te doen maar met een welbepaade cel van verschillende werkbladen. Bv. een leeg tabblad. mijn andere werkbladen hebben allemaal dezelfde lay-out, maar in iedere cel een andere tekst. Nu zou ik graag in mijn leeg tabblad in Cel A1 de gegevens terugvinden van tabblad1 cel B3. Maar dan zou ik graag in Cel A2 de gegevens terugvinden van tabblad 2 cel 3. En zou naar beneden en dit in een beweging. We kunnen allemaal afzonderlijk doen, maar als er 500 werkbladen zijn, is dit onmogelijk.

Merci voor den input.
This comment was minimized by the moderator on the site
Hi, I guess you want to list all same cells across multiple sheets, if so, there are two tutorials may help you. Please visit:
How to reference same cell from multiple worksheets in Excel?
How to create a list from same cells across multiple sheets in Excel?
Hope it is helpful.
This comment was minimized by the moderator on the site
Em português brasileiro, GET.WORKBOOK é identificado como uma função no Gerenciador de Nomes para criar o nome "Sheets", mas ao referenciar "Sheets" numa célula, aparece o erro "#NOME?". Tentei várias vezes, inclusive com a sugestão de traduzir GET.WORKBOOK para OBTER.LIVRO mas não funcionou.
This comment was minimized by the moderator on the site
Hi, try this: =SUBSTITUIR(INFO.PASTA.TRABALHO(1),"["&INFO.PASTA.TRABALHO(16)&"]","")
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
Sorry, I do not find that code can finish your job.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Just what I needed and worked perfectly. Thank you!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
This comment was minimized by the moderator on the site
Thank you. It is very useful. :D
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations