Office: Blattnamen automatisch ändern mit Zellbezug auf anders Blatt

Hallo,

ich möchte meine Blätter automatisch umbenennen lassen. Das erste Blatt nennt sich „Übersicht“ dort möchte ich die Namen der anderen Blätter eingeben. Die Namen werden aber regelmäßig geändert. Das ist doch aber eigentlich nichts weiter als ein Zellbezug auf ein anderes Blatt… ??? Geht aber nicht. Genommen hab ich diesen

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "Übersicht!$J$6" Then Exit Sub
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Target Then
MsgBox "Dieser Name existiert bereits"
Exit Sub
End If
Next
ActiveSheet.Name = Target
End Sub


Kann mir da jemand weiterhelfen? Bin VBA Neuling… Das das in’s Codemodul muss weiss ich aber.

Funktionieren sollte das bei Office 2019 und 365.


Gibt es eigentlich eine Möglichkeit direkt zu dem Blatt zu spingen wenn ich auf der „Übersicht“ auf einen Blattnamen in der Zelle klicke?

Besten Dank schon einmal im Voraus.

 

Moin

Es gibt auch (kommerzielle) AddIns für Blatt-Verwaltung.

 

Wenn ich's mir kaufen wollte, bräuchte ich nicht in einem Forum um Hilfe bitten.. ;-)

Die 2te Frage hat sich erledigt, ist ja nur n Hyperlink.

Aber bei dem anderen häng ich immer noch.
Funktioniert nur wenn ich es im selben Blatt habe und keine Formel in der Zelle drin steht. Hätte das aber gern vom ersten Blatt.