---

Ich habe eine VBA-Funktion, die ich in Arbeitsblättern in beliebige Zellen einfügen kann. Diese sieht so aus:

--------------------------------------------------------------------------
Public Function Sheetname() As String

'schreibt den Namen des Sheets in die markierte Zelle
'Dim zk As String
Sheetname = Excel.ActiveSheet.Name
End Function

--------------------------------------------------

Diese VBA-Funktion funktioniert auch. Das Problem besteht darin, daß nachdem ich den Namen des Sheets geändert habe, in der betreffenden Zelle immer noch der alte Name steht. Die Funktion wird also beim ändern des Sheetnamen nicht erneut aufgerufen, sprich aktualisiert. Wie kann ich nun erzwingen, daß diese Funktion erneut durchlaufen wird?

MfG

Günter

------------------
MfG

Günter

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

---

Moin,

MUSS es denn überhaupt ein Makro sein?
http://www.excelformeln.de/formeln.html?welcher=95

Code:

---

=TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)

---

Ansonsten mußt Du Dir die zur Verfügung stehenden Ereignisse (Calculate, Activate usw.) anschauen, ob sich da etwas passendes für Dich aufdrängt. Macht aber die Mappe u.U. langsam, wenn ständig etwas lauert...

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Servus, ich würde die Formel verwenden...

Makro in die Tabelle, nur dein Makro funktioniert nicht...

Code:

---

Private Sub Worksheet_Change()
'schreibt den Namen des Sheets in die markierte Zelle
'Dim zk As String
Sheetname = Excel.ActiveSheet.Name
End Sub

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche: Mulitmodel, Halo4Texte, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF, Fehler zwischen Normal MAP Civil beheben...
Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 24. Jun. 2015 editiert.]

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

---

Und das funktioniert bei Dir ?

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

---

Ja, die Lösung mit der Formel funktioniert einwandfrei. Damit ist erstmal die Zielstellung erreicht. Warum ich das mit VBA angehen wollte ist der Tatsache gestundet, daß ich mit den komplexen Excel-Formeln bisher wenig Erfahrung gesammelt habe. Außerdem werden die ja sehr schnell unübersichtlich durch die vielen Verschachtelungen. Der Tipp war gut und hat mir schnell weitergeholfen.

Danke

Günter

------------------
MfG

Günter

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

---

Meine Frage bezog sich auf den Beitrag von Bernd, da ein kurzer Test des Code nur Fehlermeldungen hervor brachte.
Die Formel ist nett und für Deine Zwecke völlig ausreichend. Aber bis ich sowas mal brauche werde ich wahrscheinlich wieder die Suchmaschine anschmeißen müssen ...

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