Office: (Office 365) Tabellenblatt-Name wird nicht korrekt in das Sheet übernommen

Hallo liebe Office-Gemeinde,
auch nach längerem Suchen habe ich keine Lösung für mein Problem gefunden.
Ich baue gerade einen Kalender und möchte "voll automatisch" die jeweiligen Titel in den einzelnen Tabellen-Sheets aus dem Tabellenblatt entnehmen.
Das funktioniert genau einmal.
Ich habe ein abgespecktes Beispiel beigefügt.
Wenn ich z.B. den März eingebe, erscheint in allen anderen ebenfalls der März. Mache ich das gleiche z.B. für den Januar, dann erscheint dieser Name auch in den anderen beiden.

Wie bekomme ich dies hin, dass jeweils der richtige Tabellenblatt-Name in den jeweiligen Tabellen-Sheets erscheint?
Könnt ihr mir dabei helfen. Das wäre super!!!!

 

Hallo,

mit dieser Formel: =TEIL(ZELLE( "dateiname";A1); FINDEN("]"; ZELLE("dateiname"; A1))+1; 255) geht es. Wobei ich aber dringend davon abraten würde, für jeden Monat ein eigenes Blatt anzulegen.

 

Moin waholin,

mit dem Formelanhang in A2 &" "&K0!$A$1 holst Du immer den gleichen Wert in Dein Arbeitsblatt, das ist der Haken.

Vorschlag mit VBA: Lösche die Formeln aus allen Blättern und setzte diesen Code in jedes Arbeitsblatt:

Code:

Option Explicit

Private Sub Worksheet_Activate()

    With ActiveSheet.Range("A2")
        .NumberFormat = "@"                     ' verhindert Datumskonvertierung
        .Value = ActiveSheet.Name & " " & Year(Date)
    End With

End Sub

Damit wird die verbundene Zelle immer mit dem aktuellen Tab-Namen & aktuellem Jahr gefüllt, auch wenn Du den Namen geändert hast oder Du im nächsten Jahr bist.

Um den Code einzufügen: Rechte Maustaste auf den Tab > Code anzeigen > dann per Copy & Paste mein Snippet einsetzen und die Datei als .xslm oder .xslb speichern.

Viel Spaß damit