Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige