Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet-Namen auflisten

Forumthread: Worksheet-Namen auflisten

Worksheet-Namen auflisten
Peter
Guten Abend
Ich habe erfolglos nach einem Code gesucht, der mir in eine bestehende Tabelle (in Spalte A, ab Zeile 1) alle Worksheet-Namen ausgibt.
Kann mir jemand helfen?
Danke und Gruss, Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Worksheet-Namen auflisten
21.12.2010 17:41:13
Josef

Hallo Peter,

Sub Peter()
Dim objSh As WorkSheet
For Each ObjSh In ThisWorkBook.WorkSheets
Cells(objSh.Index,1) = objSh.Name
Next
End Sub
Gruß Sepp

Anzeige
AW: Worksheet-Namen auflisten
21.12.2010 18:10:56
Peter
Hallo Sepp
Vielen Dank. Ich habe das in nachfolgenden Code integriert. Im aktuellen File habe ich rund 100 Tabellen. Das nimmt etwas Zeit, diese aufzulisten. Ist es allenfalls möglich, das die ganze liste in eine Variable zu schreiben und dann auf einmal in die Tabelle "dIndex" auszugeben?
Gruss, Peter
Option Explicit 
Sub WorksheetAdd()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim objSh As Worksheet
Sheets("dIndex").Delete
Worksheets.Add After:=Sheets("Data")
ActiveSheet.Name = "dIndex"
Sheets("Index").Cells.ClearContents
For Each objSh In ThisWorkbook.Worksheets
Cells(objSh.Index, 1) = objSh.Name
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Next
End Sub

Anzeige
AW: Worksheet-Namen auflisten
21.12.2010 18:21:17
Josef

Hallo Peter,
dann halt so

Sub peter()
  Dim vntSheets() As String, lngIndex As Long
  
  With ThisWorkbook
    Redim vntSheets(1 To .Worksheets.Count, 1 To 1)
    For lngIndex = 1 To .Worksheets.Count
      vntSheets(lngIndex, 1) = .Worksheets(lngIndex).Name
    Next
  End With
  
  With Sheets("dIndex")
    .Range("A:A").ClearContents
    .Range("A1").Resize(UBound(vntSheets, 1), 1) = vntSheets
  End With
  
End Sub

Gruß Sepp

Anzeige
AW: Worksheet-Namen auflisten
21.12.2010 21:13:53
Peter
Hallo Sepp
Grossartig!
Vielen Dank, Peter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige