Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblatt-Name geht verloren

Forumthread: Tabellenblatt-Name geht verloren

Tabellenblatt-Name geht verloren
10.04.2024 16:40:19
Frank Winger
Hallo, liebe Experten.

Ich habe eine Excel-Vorlage mit etwa 35 Tabellenblättern und drei kleinen Makros erstellt und als "Vorlage01.xltm" abgespeichert. Über die Formel

=TEIL(ZELLE("dateiname";A1);SUCHEN("]";ZELLE("dateiname";A1))+1;31)

lasse ich die Namen der 35 Tabellenblätter in die jeweilige Zelle A1 auslesen. Wenn ich die xltm-Datei öffne, funktioniert das auch wunderbar.
Wird hingegen die Vorlage angeklickt, wird eine Kopie als xlsx-Datei erzeugt und die obige Formel gibt "#WERT" zurück. Ich muss also zunächst die geöffnete Datei als xlsm-Datei abspeichern, damit meine Makros weiterhin funktionieren, und dann diese xlsm wieder öffnen, damit die obige Formel wieder die korrekten Tabellenblatt-Namen ausgibt. Hintergrund dieser Vorgehensweise: Ich habe zwei Tabellenbläter, aus denen die Werte aus den restlichen Tabellenblättern in einer Matrix dargestellt werden. Die Spaltenüberschriften sind dabei mit den jeweiligen Zellen A1 der einzelnen Tabellenblätter verknüpft und weisen nun alle "#WERT" aus.

Ich habe ewig gesucht, bisher aber keine Formel gefunden, die ohne vorheriges Speichern der Datei die Namen der Tabellenblätter ausgibt. Gibt es eine solche Möglichkeit überhaupt?

Alternativ bin ich auf der Suche nach einem Makro, welches diese Aufgabe erledigt, habe aber absolut keine Ahnung, wie ich das angehen soll.

Ich bin für jeden Hinweis dankbar.

Viele Grüße
Frank
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt-Name geht verloren
10.04.2024 16:51:05
Yal
Hallo Frank,

richtig, solang nicht gespeichert, existiert keine Dateiname.

Wenn Du schon Makros in diese Vorlage hast, kannst Du eine Used Defined Function verwenden:
Public Function BlattName(Optional ByVal Target As Range) As String

If Target Is Nothing Then Set Target = Application.ThisCell
BlattName = Target.Parent.Name
End Function


Dann in einem Blatt die Formel
=Blattname()
verwenden.

Funktioniert auch, wenn noch nicht gespeichert.

VG
Yal
Anzeige
AW: Tabellenblatt-Name geht verloren
11.04.2024 10:01:18
Frank Winger
Vielen Dank, Yal.

Diese Lösung hatte ich gestern bereits gefunden. Aber entweder mache ich etwas falsch, oder es ist noch nicht das, was ich suche. Der Blattname wird zwar auf allen 35 Tabellenblättern ausgegeben, jedoch überall gleich, nämlich der des zuletzt aktiven Tabellenblatts.

VG
Frank
Anzeige
AW: Tabellenblatt-Name geht verloren
11.04.2024 11:29:16
Yal
Einmal neuberechnen lassen sollte wirken.

VG Yal
AW: Tabellenblatt-Name geht verloren
11.04.2024 12:19:14
Frank Winger
Am Neuberechnen lag es nicht...
Ich hab den Fehler gefunden. Es funktioniert wie erwartet.
Herzlichen Dank & viele Grüße
Frank
AW: Tabellenblatt-Name geht verloren
11.04.2024 13:37:18
Yal
Es wäre aber gut gewesen, wenn Du die Lösung auch hier gepostet hättest, falls jemand dasselbe Problem hat.

VG Yal
Anzeige
AW: Tabellenblatt-Name geht verloren
11.04.2024 14:34:34
Frank Winger
Ich hatte schlicht und einfach den Code ins Workbook kopiert, anstatt in ein Modul...
AW: Tabellenblatt-Name geht verloren
11.04.2024 21:12:54
Yal
Mein Fehler, ich hätte drauf hinweisen sollen. UDF funktionieren nur, wenn sie im Modul vorliegen.

VG
Yal
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige