Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblattregister

Tabellenblattregister
02.03.2005 07:22:57
Peter
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblattregister
02.03.2005 07:32:03
Harald
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
AW: Tabellenblattregister
02.03.2005 07:33:37
WernerB.
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 !
Anzeige
AW: Tabellenblattregister
02.03.2005 07:34:30
Hajo_Zi
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
AW: Tabellenblattregister
02.03.2005 07:35:24
=Peter=
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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige