Herbers Excel-Forum - das Archiv

Tabellenblattregister

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