Tabellenblattregister

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Tabellenblattregister
von: Peter
Geschrieben am: 02.03.2005 07:22:57
Guten Morgen,
gibt es eine Möglichkeit die Namen des gesamten
Tabellenblattregisters (40 Tabellenblätter)
in ein Tabellenblatt Namens "Register" auszulesen.
Wäre toll wenn mir jemand helfen könnte.
Gruss
Peter

Bild

Betrifft: AW: Tabellenblattregister
von: Harald Kapp
Geschrieben am: 02.03.2005 07:32:03
Hallo Peter,
so:

Sub test()
Dim T_blatt As Worksheet
Dim z As Long
z = 1
For Each T_blatt In ActiveWorkbook.Worksheets
   If T_blatt.Name <> "Register" Then
      Sheets("Register").Cells(z, 1) = T_blatt.Name
      z = z + 1
   End If
Next
End Sub

Gruß Harald
Bild

Betrifft: AW: Tabellenblattregister
von: WernerB.
Geschrieben am: 02.03.2005 07:33:37
Hallo Peter,
wie gefällt Dir das?

Sub Peter()
Dim i As Integer
    For i = 1 To Worksheets.Count
      Sheets("Tabelle1").Cells(i, 1).Value = Worksheets(i).Name
    Next i
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: Tabellenblattregister
von: Hajo_Zi
Geschrieben am: 02.03.2005 07:34:30
Hallo Peter,
siehe Beispiel
https://www.herber.de/bbs/user/19068.xls

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Homepage

Bild

Betrifft: AW: Tabellenblattregister
von: =Peter=
Geschrieben am: 02.03.2005 07:35:24
Hallo Peter,
vielleicht hilft dir das hier weiter:

Sub Inhaltsverzeichnis()
    'Autor: Peter H. Erdmann
    Dim z As Integer
    Application.ScreenUpdating = False
    On Error GoTo Fehler
    ActiveWorkbook.Sheets(1).Activate
    ActiveWorkbook.Sheets.Add.Name = "Tabellenverzeichnis"
    z = 1
    For Each Worksheet In ActiveWorkbook.Sheets
        Worksheet.Activate
        z = z + 1
        Sheets("Tabellenverzeichnis").Cells(z, 1) = ActiveSheet.Name
    Next Worksheet
    ActiveWorkbook.Sheets(1).Activate
    Application.ScreenUpdating = True
    Exit Sub
Fehler:
    MsgBox "Bitte Blatt Tabellenverzeichnis löschen und neu starten"
    Application.ScreenUpdating = True
End Sub

Bild

Betrifft: AW: Tabellenblattregister
von: Peter
Geschrieben am: 02.03.2005 07:54:37
Hallo Leute,
vielen Dank für euere Hilfe
muss erstmal checken was am besten passt.
Gruss
Peter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Probleme mit Pivot – Tabelle und Grafiken"