Wie kann ich Excel Blattnamen durch Formel ändern?

Hallo Excel Profis !
Ich habe in mein Excel
Tabelle 1
Tabelle 2
Tabelle 3
Ich möchte dass, wenn ich zb in Tabelle 1 => A1 etwas schreibe dass mein Tabelle 2 sich nach dem unbenannt werden was ich in Tabelle 1 => A1 eingegeben habe.
z.B ich schreibe in Tabelle 1 => A1 => Januar hin.
Nun soll sich mein Tabelle 2 name in "Januar" unbenannt werden.

Kann mir da jemand helfen ?

Answer 1

[Suboptimierer]

Du kannst dafür VBA nutzen. Füge im Code des ersten Tabellenblatts ein (ungetestet):

Sub Worksheet_Change(Target as Range)
  If Target.Address = "$A$1" Then 
    Worsheets(2).Name = Target.Value
  End If
End Sub

Comments

[formates]

leider funktioniert nicht

[IchMalWiederXY]

@formates

bei mir funktioniert dies. Wo hast du den Code hin ?

[formates]

ups, war doch richtig vielen DANK !

[formates]

Kann ich auch so machen für weitere Tabellen ?

Private Sub worksheet_change(ByVal target As Range)

 If target.Address = "$A$9" Then

   Worksheets(1).Name = target.Value

 End If

End Sub

Private Sub worksheet_change(ByVal target As Range)

 If target.Address = "$A$10" Then

   Worksheets(2).Name = target.Value

 End If

End Sub

[Suboptimierer]

@formates

Ja schon, sollte gehen. Ich bin mir nur nicht sicher, ob du dir den Teppich unter den Füßen wegziehen kannst, also das Blatt umbenennen kannst, zu dem du Code erfasst.

Du würdest den Prozedurkopf nur einmal schreiben. Darunter kannst du
If Bla Then Blub
If Tik Then Tok
usw.

schreiben.

Deinen Code könnte man zudem noch weiter zusammenfassen:

If not Intersect(Target, Range("A9:A20")) is Nothing Then
  Worksheets(Target.Row-8).Name = Target.Value
End If