Tabellenblatt nach einer Zelle benennen

18. März 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

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:

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"