Tabellenblatt nach einer Zelle benennen

Tabellenblatt nach einer Zelle benennen

Wie Sie einen Tabellennamen per Makro festlegen

Sie möchten dafür sorgen, den Namen der aktiven Tabelle auf den Text zu setzen, der in einer bestimmten Zelle der Tabelle zu finden ist? Setzen Sie das folgende Makro ein:

 

Sub TabellennamenSetzen()
Dim Zelle As String
Zelle = "a1"
ActiveSheet.Name = ActiveSheet.Range(Zelle).Text
End Sub

Mit dem Wert der Variablen Zelle definieren Sie, aus welcher Zelle der Text übernommen werden soll. Übergeben Sie dazu den passenden Zellbezug (hier: A1) als Adresse.

Das Makro übernimmt den Inhalt aus der entsprechenden Zelle der aktiven Tabelle. Das aktuelle Tabellenblatt wird anschließend entsprechend umbenannt. Die folgende Abbildung zeigt ein Beispiel für eine umbenannte Tabelle: