---

Hallo Excel-Spezialisten!

Ich möchte das in meiner Arbeitsmappe, welche aus 13 Blättern besteht,daß der jeweilige Blattname auf der Position P33 in jedem Blatt erscheint. Ich habe mir schon von einem Beitrag ein Stück Beispielcode (von Nancy) geholt und das funktioniert auch.

Sub blattname1()
Dim reg As String
reg = ActiveSheet.Name
Range("P33").Value = reg
End Sub

Nun muß ich aber in jedes Blatt wechseln und jeweils das Modul (Makro Blattname1) ausführen.
Ich aber möchte gerne, daß ich das Modul nur einmal bzw. gar nicht ausführen muß (soll beim öffnen der Datei von allein geschehen).
Ich denke,daß ihr mir weiterhelfen könntet.

Vielen Dank !

Tschüß Frank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank,

ich nehme an, du hast das aus diesem Beitrag: http://ww3.cad.de/foren/ubb/Forum226/HTML/000032.shtml

startrek hat dort folgende Formel gepostet:
=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255)

Wennd du diese Formel in deine Zelle P33 kopierst, wird dort der aktuelle Blattname eingetragen. Dazu muss die Arbeitsmappe aber gespeichert werden (ist für gewöhnlich der Fall, aber wenn man's mal schnell testen möchte, könnte man auf's Speichern vergessen ...).

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wolfgang

Vielen Dank! Hat gut funktioniert.
Dafür gibt es Unities für Dich und für Nancy.

Tschüß Frank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP