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 ?
1 Antwort
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
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
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