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

Blattname ausgeben

1,164 views
Skip to first unread message

wobrose58

unread,
Apr 14, 2010, 4:51:01 AM4/14/10
to
Hallo, ich suche eine Funktion, um in einer Zelle den Blattnamen des
Excel-Sheets auszugeben. Gibt es so eine Funktion in Excel 2003 überhaupt?
Vielen Dank im voraus.
Gruß, Wolfgang

Peter Schleif

unread,
Apr 14, 2010, 5:02:48 AM4/14/10
to
wobrose58 schrieb am 14.Apr.2010 10:51 Uhr:
> Hallo, ich suche eine Funktion, um in einer Zelle den Blattnamen des
> Excel-Sheets auszugeben. Gibt es so eine Funktion in Excel 2003 überhaupt?

=TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+1;999)

Wobei A1 durch irgendeine fehlerfreie Zelle ersetzt werden kann.


Oder per VBA: =Blattname(JETZT())

Function Blattname(foo) As String
Blattname = Application.Caller.Worksheet.Name
End Function


Peter

Claus Busch

unread,
Apr 14, 2010, 5:00:27 AM4/14/10
to
Hallo Wolfgang,

Am Wed, 14 Apr 2010 01:51:01 -0700 schrieb wobrose58:

> Hallo, ich suche eine Funktion, um in einer Zelle den Blattnamen des
> Excel-Sheets auszugeben. Gibt es so eine Funktion in Excel 2003 überhaupt?

probiers mal so:
=RECHTS(ZELLE("dateiname";A1);LÄNGE(ZELLE("dateiname";A1))-FINDEN("]";ZELLE("dateiname";A1)))


Mit freundlichen Grüssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ecksel2003

unread,
Apr 14, 2010, 5:14:01 AM4/14/10
to
=TEIL(ZELLE("dateiname");FINDEN("]";A1)+1;99)

ZELLE("dateiname") gibt Dir alles wieder.
Der Teil nach dem "]" ist der Blattname

wobrose58

unread,
Apr 14, 2010, 6:28:01 AM4/14/10
to
sorry. Die Formel und deren Anwendung habe ich nicht verstanden und beim
Kopieren und einfügen in Zelle A1 kommt Zirkelbezug, in jeder anderen Zelle
kommt Fehler "#WERT". Was mache ich falsch???

wobrose58

unread,
Apr 14, 2010, 6:37:01 AM4/14/10
to
Hallo Peter,

hat funktioniert - vielen Dank.

"Peter Schleif" schrieb:

> .
>

0 new messages