Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Tabellenname in Zelle einfügen, Excel 97

189 views
Skip to first unread message

P. Frey

unread,
Apr 30, 1999, 3:00:00 AM4/30/99
to

Excel bietet zwar mit der Funktion Zelle die Möglichkeit u. a. den
Dateinamen abzurufen, jedoch gibt es mit dieser Funktion keine
Einstellung um dies mit dem Tabellennamen zu tun. Das wäre jedoch ganz
praktisch.
Kennt jemand eine Lösung? Bzw. hat jemand dafür ein Makro geschrieben?


Bernd Held

unread,
Apr 30, 1999, 3:00:00 AM4/30/99
to
Hallo P.,
klar das geht folgendermaßen:

Function TabName()
TabName = Application.ActiveSheet.Name
End Function

Aufruf in einer Zelle: =TABNAME()

Viele Grüße
Bernd

P. Frey schrieb:

Oliver Schneider

unread,
Apr 30, 1999, 3:00:00 AM4/30/99
to
Hallo!

Es giibt sie, aber .... siehe selbst.

VBA:
Sub Blattname_ermitteln()
ActiveCell = ActiveSheet.Name
End Sub

manuell (Tabelle muß gespeichert sein!):

=TEIL(ZELLE("dateiname");SUCHEN("]";ZELLE("dateiname"))+1;LÄNGE(ZELLE("datei
name"))-SUCHEN("]";ZELLE("dateiname")))


Gruß
O. Schneider
Oliver-S...@gmx.de
(Office 97 Prof. /NT4.0 SP4)

Peter

unread,
May 3, 1999, 3:00:00 AM5/3/99
to Bernd Held
Bernd, danke für die prompte Antwort. Es hat funktioniert.
Vielleicht kannst Du dir dazu folgendes Phänomen erklären:
Ein einfügen dieser Funktion zeigt zwar den richtigen Tabellennamen an, hat
man die Tabellenblätter jedoch gruppiert und fügt dann die Funktion ein,
steht auf jedem Blatt der gleiche Name. Eine Aktualisierung der Daten z.B.
via F9-Taste ist nicht möglich. Ändert sich ein Tabellenname bleibt die
Anzeige in der Zelle ebenso unverändert. (Außer man fügt die Funktion erneut
ein)

Danke

Bernd Held schrieb:

Peter

unread,
May 3, 1999, 3:00:00 AM5/3/99
to Bernd Held

H+E Eschner

unread,
May 3, 1999, 3:00:00 AM5/3/99
to
Hallo Bernd, Oliver und Peter,

'tschuldigung, daß ich mich einmisch...

die vorgeschlagenen Lösungen haben den von Peter erkannten Nachteil,
daß die den Tabellennamen des aktiven Blattes zurückgeben: in allen
Blättern steht derselbe Name, weil es eben nur EIN aktives Blatt gibt.

Abhilfe:
Funktion ZELLE mit 2. Parameter: ZELLE("dateiname";A1)
bewirkt, daß (u.a.) der Name des Blattes zurückgegeben wird, welches
die Funktion enthält (ansonsten den des Blattes mit der aktiven Zelle)

bzw.
Function Blattname()
Blattname = Application.Caller.Parent.Name
End Function

hth, hanfred

Bernd Held

unread,
May 4, 1999, 3:00:00 AM5/4/99
to
Hallo Hanfred,
super Tip, danke!

Viele Grüße
Bernd

H+E Eschner schrieb:

0 new messages