Office: Blattnamen fortlaufend ändern

Liebe Spezialisten,

habe da ein für mich großes, für Euch sicher kleines Problem.

In einer Datei habe ich 12 Blätter gesamt.

Ab dem 3. Tabellenblatt sollen die Tabellenblätter in Abhängigkeit (von einem Zelleintrag im 2. Blatt) umbenannt werden.

Steht z.B. im 2. Blatt in "B7" der Eintrag "Elektriker", so soll das 3. Blatt "Elektriker", das 4. Blatt "Elektriker 1", das 5. Blatt "Elektriker 2", ... heissen.

Ich habe es schon mit rename active.sheet, aber auch so versucht,
Sub Blatt_umbenennen()
Sheets(1).Name = "Professionisten"
Sheets(2).Name = "Info"
Sheets(3).Name = Worksheets("Info").Range("B7").Value
Sheets(4).Name = Worksheets("Info").Range("B7").Value & " 1"
.......
End Sub

ohne Erfolg!

Könnt Ihr mir bitte weiterhelfen?!
Vielen Dank schon mal im Voraus!

Liebe Grüße,
Rolio

:)

 

hi

folgendes geht bei mir

Code:

wahrscheinlich liegt es am ".select"
Und halt aufpassen, dass man Namen nicht doppelt vergibt. Da kracht es auf jeden Fall.

Grüße

pAT

 

Moin, rolio,

Dein Code klappt in einer Beispielmappe unter XL9 ohne Probleme, welche Fehlermeldung erhältst Du denn?
Code:

@pat:

Es kann eine Schleife eingebaut werden, die die Existenz eines Namens überprüft und einen Zähler solange erhöht, bis dieser verfügbar ist - alles eine Sache der Fehlerbehandlung...

 

Vielen herzlichen Dank jinx!!!!

Frag mich bitte nicht, warum Dein Code so wunderbar funktioniert!?!

Es kam auch keine Fehlermeldung bei mir - es tat sich einfach nichts!

Nachdem ich Deinen Code eingesetzt habe, funktioniert es jedoch super!

Vielen herzlichen Dank nochmals für Deine Hilfe!!!!!!

Rolio