Tabellenblätter nach Zellinhalt benennen

[tbaumgar]

Hallo

Leider bin ich ein Anfänger was Makro angeht.

Das Makro ist fast genau das was ich brauche.
Jedoch steht bei mir der Name nicht in jedem Tabellenblat in der selben Zelle, sondern die Namen stehen im ersten Tabellenblatt in den Zellen F2 bis M2.
Kann mir jemand helfen ?

Danke und Gruss
tbaumgar

 

[NiCa]

Hallo

Leider bin ich ein Anfänger was Makro angeht.

Das Makro ist fast genau das was ich brauche.
Jedoch steht bei mir der Name nicht in jedem Tabellenblat in der selben Zelle, sondern die Namen stehen im ersten Tabellenblatt in den Zellen F2 bis M2.
Kann mir jemand helfen ?

Danke und Gruss
tbaumgar

Hallo tbaumgart
Also Name von Tabelle1 in F2, Tabelle2 in G2 usw bis Tabelle8 in M2? - Habe ich dich hier richtig verstanden?

Makro im Webcode 26556

 

[NiCa]

Versuchs damit:

Sub Namen_anpassen_alle()
Sheets(1).Select
B = ActiveSheet.Index
[F2].Select
For Each w In Worksheets
Na = ActiveCell.Value
Sheets(B).Activate
B = B + 1
On Error Resume Next
w.Name = Na
Sheets(1).Select
ActiveCell.Offset(0, 1).Select
Next w
Sheets(1).Select
End Sub