Supportnet / Forum / Tabellenkalkulation

wie kann ich den Namen der Arbeitsmappe in einer Zelle darstellen, die sich auch ändert, wenn der Name der Arbeitsmappe sich ändert?

hi Gioseppe :)

vielleicht so :)

beschreibt vor dem speichern die zelle A1 mit dem namen des activen workbooks

gruss nighty

einzufuegen alt f11(vbeditor)/projektexplorer/DeineArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cells(1, 1) = ActiveWorkbook.Name
End Sub

hi alle :)

vielleicht noch ergaenzend hinzuzufuegen

einzufuegen alt f11(vbeditor)/projektexplorer/DeineArbeitsmappe

gruss nighty

Private Sub Workbook_Open()
Cells(1, 1) = ActiveWorkbook.Name
End Sub

Hi Gioseppe,

das geht auch ganz ohne VBA (sorry, nighty ;-))) )

Hier die möglichen Formeln:

kompletter Dateipfad bis zum Arbeitsblatt:
=ZELLE("dateiname";$A$2)

Dateipfad bis zum Dateinamen ohne die [eckigen Klammern]:
=WECHSELN(LINKS(ZELLE("Dateiname";A2);-1+FINDEN("]";ZELLE("Dateiname";A2)));"[";"")

Nur Verzeichnispfad
=LINKS(ZELLE("Dateiname";A2);FINDEN("[";ZELLE("Dateiname";A2))-2)

Name der Datei
=TEIL(ZELLE("Dateiname";A2);FINDEN("[";ZELLE("Dateiname";A2))+1;FINDEN("]";ZELLE("Dateiname";A2))-FINDEN("[";ZELLE("Dateiname";A2))-1)

Name des Arbeitsblattes
=TEIL(ZELLE("Dateiname";A2);FINDEN("]";ZELLE("Dateiname";A2))+1;31)

Mit diesen Formeln müßte sich jegliche Lösung finden lassen

CU
want2cu

hi alle :)

@want2cu :)

hi das hatte ich auch probiert doch wenn die datei umbenannt wird oder saveAs benutzt wird mit anderen dateinamen hatte die formel immer den alten namen,erst nach selectierung und return war der name aktuell.

gruss nighty

hi want2cu :)

hatte damit experimentiert :)

gruss nighty

=dateiNamen1()

Function dateiNamen1()
dateiNamen1 = ActiveWorkbook.Name
End Function

hallo nighty,

da hst du Recht. Ich habe es mal versucht. Mit F9 (=aktualisieren) wird eine "Neuberechnung" angestossen und der Name aktualisiert.

Vielleicht kann man ja eine der o.a. Funktionen mit einem Makro beim Öffnen und/oder Speichern der ARbeitsmappe kombinieren.

"Man" heisst in diesem Fall: ich leider nicht ;-)

Aber es gibt hier doch ganz viele VBA-Experten für diesen Themenbereich.

Herzliche GRüsse

want2cu

hallo want2cu!!
f9 geht auch automatisch, wenn man unter "extras/optionen/berechnung" die automatische berechnung anklickt, ansonsten brauchst immer f9 damit excel losrechnet

grüßle
woschu

Hallo woschu,

vielen Dank für den Tipp. Aber das war mir schon bekannt.
Wenn du die o.a. Formel mal in einer Arbeitsmappe einsetzt, die auf "Automatische Berechnung" steht, klappt die Aktualisierung ja eben nicht. Darum ging es doch bei Nightys Hinweis und meiner Antwort ;-)

CU
want2cu

• In eine geschlossene Arbeitsmappe speichern?
• Arbeitsmappe schützen Problem
• Makro zum Öffnen einer bestimmten Arbeitsmappe
• Excel=Kopie von Formeln von einem altem in einen neuen Excel-Sheet
• Excel=Kopie von Formeln von einer altem in eine neue Arbeitsmappe