Tabellenblatt nach einer Zelle benennen
Wie Sie einen Tabellennamen per Makro festlegen
Veröffentlicht am
|
Zuletzt aktualisiert am
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:
