Tabellenliste erstellen?

15/10/2013 - 02:01 von Peter Schuerer | Report spam
Hallo Zusammen,

XL 2000.

Ich soll in einer vorhandenen Datei die Namen der einzelnen Tabellen und
Diagramme in eine neue Tabelle übertragen.
Es sind ca. 35 Blàtter in der Arbeitsmappe.

Ich möchte jetzt eine [Tabelle99] per Makro erstellen, in der die
einzelnen Blattnamen enthalten sind.
Wenn möglich möchte ich auch gerne noch die verwendeten "Namen" in
[Tabelle99] angezeigt bekommen.

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
15/10/2013 - 09:38 | Warnen spam
Hallo Peter,

Am Tue, 15 Oct 2013 02:01:13 +0200 schrieb Peter Schuerer:

Ich möchte jetzt eine [Tabelle99] per Makro erstellen, in der die
einzelnen Blattnamen enthalten sind.
Wenn möglich möchte ich auch gerne noch die verwendeten "Namen" in
[Tabelle99] angezeigt bekommen.



was verstehst du unter "Namen"? Bereichsnamen?
Dann probiers mal so:
Sub TabellenUndNamen()
Dim n As Integer
Dim Nm As Name
Dim i As Integer

i = 1
For n = 1 To Sheets.Count
With Sheets("Tabelle99")
If Sheets(n).Name <> .Name Then
.Cells(i, 1) = Sheets(n).Name
i = i + 1
End If
End With
Next
i = 1
For Each Nm In ThisWorkbook.Names
Sheets("Tabelle99").Cells(i, 3) = Nm.Name
Sheets("Tabelle99").Cells(i, 4) = Nm.Parent.Name
Sheets("Tabelle99").Cells(i, 5) = Range(Nm).Address
i = i + 1
Next
End Sub


Mit freundlichen Grüßen
Claus
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen