Office: Tabellennamen automatisch umbennenen

Hallo,

also meine Frage lautet, ob man Namen die in der Zelle B1 stehen automatisch durch betätigen einer Schaltfläche, unten anstatt Tabelle1 dann der Name z.B. Müller(1) steht. Dann in Tabelle2, der Name der in Tabelle2 oben in Zelle B1 steht unten dann Koch(2).
Also immer weiter aufzählen und immer ne Klammer.

Beispiel ist mit bei, wie ich es meine.
Bitte bitte hilft mir.

LG

 

Hallo!

Da ich (noch) nicht der VBA-Experte bin, bitte mein Makro erst an einer Kopie testen...
Dieser Code gehört in "Diese Arbeitsmappe" und benennt die Blätter nach dem Zellinhalt von B1. Ist B1 leer, so wird für das entsprechende Blatt keine Namensänderung vorgenommen.

Code:

Sub Blattnamen()
Dim Tabelle As Worksheet
Dim i As Integer
For Each Tabelle In ThisWorkbook.Worksheets
If Tabelle.Range("B1").Value <> "" Then
i = i + 1
Tabelle.Name = Tabelle.Range("B1").Value & "(" & i & ")"
End If
Next Tabelle
End Sub

 

Hat mal wieder bestens geklappt. Muss morgen aber nochmal ein bißchen testen.
Vielen lieben Dank und für mich bist du schon ein Experte.