Excel-Name des Tabellenblatts in A1

Computer: Software & Programmierung Office Software
1

Hallo,

ich wollte mit der Formel
=RECHTS(ZELLE(„Dateiname“);LÄNGE(ZELLE(„Dateiname“))-FINDEN("]";ZELLE(„Dateiname“)))

den Namen des jeweiligen Tabellenblatts in Zelle A1 anzeigen lassen.
Es handelt sich um eine Mappe mit 12 Tabellenblättern.
Doch leider wird jeweils der Name der zuletzt eingefügten Formel angezeigt, so dass der Name des TabBlatts nie wirklich korrekt angezeigt wird, sondern in allen 12 Tabellenblättern überall derselbe Tabellenblattname steht. Wer weiß Hilfe? Ist es wieder Reinhard?

Danke,
Ludwig

2

=RECHTS(ZELLE(„Dateiname“);LÄNGE(ZELLE(„Dateiname“))-FINDEN("]";ZELLE(„Dateiname“)))
den Namen des jeweiligen Tabellenblatts in Zelle A1 anzeigen
lassen.
Es handelt sich um eine Mappe mit 12 Tabellenblättern.
Doch leider wird jeweils der Name der zuletzt eingefügten
Formel angezeigt, so dass der Name des TabBlatts nie wirklich
korrekt angezeigt wird, sondern in allen 12 Tabellenblättern
überall derselbe Tabellenblattname steht. Wer weiß Hilfe? Ist
es wieder Reinhard? Logo :smile:

Hi Ludwig,
scheinbar musst du das einzeln in jede Tabelle reinkopieren, dann klappt es.
Oder eins der nachfolgenden Makros.
Gruß
Reinhard

Sub TabName()
For Each tb In Worksheets
 tb.Range("B1").Value = tb.Name
Next tb
End Sub

Sub DateiName()
For Each tb In Worksheets
 tb.Range("A1").Value = ThisWorkbook.Name
Next tb
End Sub
3

=RECHTS(ZELLE(„Dateiname“);LÄNGE(ZELLE(„Dateiname“))-FINDEN("]";ZELLE(„Dateiname“)))
den Namen des jeweiligen Tabellenblatts in Zelle A1 anzeigen
lassen.
Es handelt sich um eine Mappe mit 12 Tabellenblättern.
Doch leider wird jeweils der Name der zuletzt eingefügten
Formel angezeigt, so dass der Name des TabBlatts nie wirklich
korrekt angezeigt wird, sondern in allen 12 Tabellenblättern
überall derselbe Tabellenblattname steht. Wer weiß Hilfe? Ist
es wieder Reinhard? Logo :smile:

Hi Ludwig,
scheinbar musst du das einzeln in jede Tabelle reinkopieren,
dann klappt es.

Das hab ich schon vorher versucht. Ich hab sogar (eigentlich total bescheuert!) aus lauter Verzweiflung die Formel ein Dutzend Mal von Hand neu geschrieben. Ergebnis: dasselbe. Krönung: Es wurde sogar der TabBlat-Name aus einer anderen Mappe (!) unerwünschter Weise übernommen und angezeigt. So ein Quatsch! Sonst schätze ich Excel ja sehr.

Oder eins der nachfolgenden Makros.
Gruß
Reinhard

Sub TabName()
For Each tb In Worksheets
tb.Range(„B1“).Value = tb.Name
Next tb
End Sub

Sub DateiName()
For Each tb In Worksheets
tb.Range(„A1“).Value = ThisWorkbook.Name
Next tb
End Sub

Jetzt will ichs dann demnächst mit den Makros probieren.
Ich danke dir schon mal wieder herzlich!
Gruß,
Ludwig

4

Das hab ich schon vorher versucht. Ich hab sogar (eigentlich
total bescheuert!) aus lauter Verzweiflung die Formel ein
Dutzend Mal von Hand neu geschrieben. Ergebnis: dasselbe.
Krönung: Es wurde sogar der TabBlat-Name aus einer anderen
Mappe (!) unerwünschter Weise übernommen und angezeigt. So ein
Quatsch! Sonst schätze ich Excel ja sehr.

Hallo Ludwig,
ich kann das bei XL2000=9.0 nicht nachvollziehen. Der Effekt tritt nur auf wenn ich unten alle Tabellenreiter mit Strg gehalten auswähle und dann die Formel:
=RECHTS(ZELLE(„Dateiname“);LÄNGE(ZELLE(„Dateiname“))-FINDEN("]";ZELLE(„Dateiname“)))
in A1 kopiere. dann steht überall das Gleiche.
Markiere ich aber hier bei wer-weiss-was die Formel, Strg-C, dann nacheinander alle A1 auswählen und Strg-V, reagiert die Formel richtig.
Gruß
Reinhard

5

Hallo, Reinhard,

ich hab Excel 2002.
Sollte sich da ein Bug oder Rückschritt eingeschlichen haben?
Vielleicht geht mir ja noch irgend ein Licht auf.
Jedenfalls danke ich dir sehr herzlich!
Ludwig