Anzahl Tabellenblätter ermitteln

[Olaf]

Hallo,

hat jemand eien Idee wie man die Anzahl der Tabellenblätter ermitteln kann?
Im weiteren Verlauf sollen die Namen dann in jeweils einer Zelle dargestellt
werden.

Gruß und Danke vorab.
Olaf

[G.Kessler]

Hallo Olaf

Zählen der Tabellenblätter am Besten einfach mit VBA

Sub Blattzahl()
MsgBox ActiveWorkbook.Sheets.Count
End Sub

Die Namen in jeweils eine Zelle schreiben, wäre da vielleicht das
Inhaltsverzeichnis AddIn von Bernd Augustin was für dich?
http://www.bernd-augustin.de/ unter AddIns für Excel Nummer 18.

Gruß Gabi

Post by Olaf
Hallo,
hat jemand eien Idee wie man die Anzahl der Tabellenblätter ermitteln kann?
Im weiteren Verlauf sollen die Namen dann in jeweils einer Zelle dargestellt
werden.
Gruß und Danke vorab.
Olaf

[Thomas Ramel]

Grüezi Olaf

Olaf schrieb am 15.06.2006

Post by Olaf
hat jemand eien Idee wie man die Anzahl der Tabellenblätter ermitteln kann?
Im weiteren Verlauf sollen die Namen dann in jeweils einer Zelle dargestellt
werden.

Eine dynamische Möglichkeit alle Tabellenblätter einer Mappe aufzulisten
ohne VBA zu verwenden ist die folgende:

Vergib einen Bereichsnamen mit folgendem Inhalt:

--> Menü: 'Einfügen'
--> Name
--> Definieren
--> Namen in der Arbeitsmappe: x
--> Bezieht sich auf: ARBEITSMAPPE.ZUORDNEN(1)
--> [Hinzufügen]
--> [OK]

Verwende dann folgende Formel in einem Tabellenblatt:

=WENN(ZEILEN($1:1)>ANZAHL2(x);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;99))

Zieh die Formel hinunter bis alle Tabellen angezeigt werden oder Du
genügend Reserve für sie weiteren Tabellen hast.
Alle Tabellenblätter werden nun in ihrer Reihenfolge wie sie in der Mappe
stehen aufgelistet.



Mit freundlichen Grüssen
Thomas Ramel (@work)

[Olaf]

Hallo Thomas,

funktioniert leider noch nicht.

Ich habe einen Namen vergeben (x) und den beschriebenen Bezug eingetragen.
Deine Formel löst einen "'WERT"-Fehler auf.

Der fehlerdetektiv (?!?) meint, dass er Spurpfeile (???) oder Zikelbezüge
gefunden hat. Vielleicht hilft Dir das ja.

Post by Thomas Ramel
Grüezi Olaf
Olaf schrieb am 15.06.2006

Post by Olaf
hat jemand eien Idee wie man die Anzahl der Tabellenblätter ermitteln kann?
Im weiteren Verlauf sollen die Namen dann in jeweils einer Zelle dargestellt
werden.

Eine dynamische Möglichkeit alle Tabellenblätter einer Mappe aufzulisten
--> Menü: 'Einfügen'
--> Name
--> Definieren
--> Namen in der Arbeitsmappe: x
--> Bezieht sich auf: ARBEITSMAPPE.ZUORDNEN(1)
--> [Hinzufügen]
--> [OK]
=WENN(ZEILEN($1:1)>ANZAHL2(x);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;99))
Zieh die Formel hinunter bis alle Tabellen angezeigt werden oder Du
genügend Reserve für sie weiteren Tabellen hast.
Alle Tabellenblätter werden nun in ihrer Reihenfolge wie sie in der Mappe
stehen aufgelistet.
Mit freundlichen Grüssen
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-1]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

[Thomas Ramel]

Grüezi Olaf

Olaf schrieb am 15.06.2006

Post by Olaf
Ich habe einen Namen vergeben (x) und den beschriebenen Bezug eingetragen.
Deine Formel löst einen "'WERT"-Fehler auf.

Prüfe nochmals den Bezugs-Inhalt des vergebenen Namens; im Beitrag oben
habe ich ein '=' unterschlagen. Korrekt ist:

=ARBEITSMAPPE.ZUORDNEN(1)

Bei dir steht nun vermutlich:

="ARBEITSMAPPE.ZUORDNEN(1)"

in der Definition.


Mit freundlichen Grüssen
Thomas Ramel (@work)

[Olaf]

schwups, schon funkts, super und Danke.

Post by Thomas Ramel
Grüezi Olaf
Olaf schrieb am 15.06.2006

Post by Olaf
Ich habe einen Namen vergeben (x) und den beschriebenen Bezug eingetragen.
Deine Formel löst einen "'WERT"-Fehler auf.

Prüfe nochmals den Bezugs-Inhalt des vergebenen Namens; im Beitrag oben
=ARBEITSMAPPE.ZUORDNEN(1)
="ARBEITSMAPPE.ZUORDNEN(1)"
in der Definition.
Mit freundlichen Grüssen
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-1]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)