Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Tabellenblattnamen einer Datei auslesen?

Alle Tabellenblattnamen einer Datei auslesen?
Oli
Hi an alle,
ich bräuchte mal wieder Eure Hilfe. Wie kann ich alle Tabellenblattnamen einer Datei auslesen und mir diese in einem Tabellenblatt in Zellen anzeigen lassen? Schön wäre es auch, wenn das Tabellenblatt, in dem die Namen angezeigt werden sollen nicht Bestandteil dieser Exceldatei sein müsste, sondern seperat sein könnte. Hat jemand von Euch eine Idee?
Danke Euch schon mal im Voraus,
Oli
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alle Tabellenblattnamen einer Datei auslesen?
WernerB.
Hallo Oli,
wie gefällt Dir das?
Option Explicit

Sub Oli_01()
Dim i As Integer
Application.ScreenUpdating = False
Workbooks.Add
For i = 1 To ThisWorkbook.Sheets.Count
Cells(i, 1).Value = ThisWorkbook.Sheets(i).Name
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Alle Tabellenblattnamen einer Datei auslesen?
Beni
Hallo Oli,
bei diesem Beispiel wird eine neue Exceldatei erstellt und die Namen eingetragen.
Gruss Beni

Sub Tabellenblattnamen_in_eine_Datei()
wb = ActiveWorkbook.Name
Workbooks.Add
wb2 = ActiveWorkbook.Name
Windows(wb).Activate
For ws = 1 To Sheets.Count
With Workbooks(wb2).Sheets(1)
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Sheets(ws).Name
End With
Next ws
End Sub

Anzeige
Schon ganz gut, aber...
Oli
Nabend
und Danke an Euch beiden. Beide Lösungen funktionieren super. Allerdings dachte ich das etwas anders herum. Ich möchte nicht ein neues Blatt erstellen lassen, sondern in dem seperaten Blatt ein Makro starten, welches mir die Blattnamen der vorhandenen Datei ausliest und diese in der seperaten Datei in Zellen schreibt. Habt Ihr dafür auch noch einen Lösungsweg?
Danke und sorry, dass ich mich eventuell falsch ausgedrückt habe,
Oli
Anzeige
ich hab auch noch einen :-)
Oberschlumpf
Hi Oli
Und mit diesem Vorschlag kannst Du jede x-bielige Excel-Datei öffnen, und dessen Blattnamen auflisten lassen.
Hier die Bsp-Datei
https://www.herber.de/bbs/user/5651.xls
Konnte ich Dir auch helfen?
Ciao
Thorsten
Anzeige
Genau das wars!
Oli
Hi Thorsten,
genau dass ist es, was ich gesucht habe. Danke Dir dafür.
Noch einen schönen Abend,
Oli
Danke :-)...auch n schönen Abend..o.T.
24.04.2004 16:55:12
Oberschlumpf
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Alle Tabellenblattnamen in Excel auslesen


Schritt-für-Schritt-Anleitung

Um alle Tabellenblattnamen in einer Excel-Datei auszulesen und in einem separaten Blatt aufzulisten, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code ein:

    Sub Blattnamen_auslesen()
       Dim i As Integer
       Dim wb As Workbook
       Set wb = Workbooks("DeineDatei.xlsx") ' Ersetze "DeineDatei.xlsx" mit dem Namen deiner Datei
    
       Workbooks.Add ' Neues Workbook erstellen
       For i = 1 To wb.Sheets.Count
           Cells(i, 1).Value = wb.Sheets(i).Name ' Blattnamen in die neue Datei eintragen
       Next i
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus, indem Du ALT + F8 drückst und das Makro auswählst.

  5. Alle Blattnamen werden in der neuen Datei aufgelistet.


Häufige Fehler und Lösungen

  • Fehler: "Das angegebene Workbook kann nicht gefunden werden."

    • Lösung: Stelle sicher, dass der Name der Datei korrekt im Code angegeben ist und dass die Datei geöffnet ist.
  • Fehler: Die Zellen sind leer.

    • Lösung: Überprüfe, ob das Makro tatsächlich das korrekte Workbook referenziert und dass die Blattnamen vorhanden sind.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du die Blattnamen auch manuell auflisten:

  1. Öffne die Excel-Datei.
  2. Klicke mit der rechten Maustaste auf ein beliebiges Tabellenblatt und wähle Umbenennen.
  3. Notiere Dir die Namen der Blätter und schreibe sie in ein neues Blatt.

Praktische Beispiele

Hier ist ein weiteres Beispiel, wie Du mit VBA die Blattnamen einer geöffneten Datei auflisten kannst:

Sub Namen_der_Tabellenblätter_auflisten()
    Dim ws As Worksheet
    Dim lz As Long
    Workbooks.Add ' Neues Workbook erstellen
    lz = 1 ' Startzeile
    For Each ws In ThisWorkbook.Sheets
        Cells(lz, 1).Value = ws.Name
        lz = lz + 1
    Next ws
End Sub

Diese Variante erstellt ein neues Workbook und listet die Namen aller Tabellenblätter der aktuellen Datei auf.


Tipps für Profis

  • Verwende benannte Bereiche: Wenn Du häufig mit Blattnamen arbeitest, kannst Du benannte Bereiche in Excel nutzen, um schneller auf bestimmte Blätter zuzugreifen.
  • Automatisiere den Prozess: Du kannst die Makros so anpassen, dass sie beim Öffnen der Datei automatisch ausgeführt werden, um die Blattnamen immer aktuell zu halten.

FAQ: Häufige Fragen

1. Kann ich die Blattnamen aus einer anderen Excel-Datei auslesen?
Ja, das ist möglich, indem Du den Namen der Datei im Code entsprechend anpasst.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die oben beschriebenen VBA-Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige