Excel vba: Tabellen mit neuem Code-Namen

[Guschti]

Hallo Marcus

Dieser Code ist nicht vom TE.

Gruss Guschti

[marose67]

Hallo Gutschi,
Sorry ... :19: :16: ,war deiner. Funktioniert trotzdem sehr gut.
Gruß
Marcus

[snb]

In Excel 2000 war dies noch möglich:

Code:

Sub M_snb()
 For Each it In Sheets
   it.CodeName = it.Name
 Next
End Sub

Nun geht's nur so

Code:

Sub M_snb()
  For Each it In Sheets
    it.Parent.VBProject.VBComponents(it.CodeName).Name = "snb" & Right(it.Name, 1)
  Next
End Sub

[sharky51]

Hallo zusammen,

ich glaube ich habe nun den Grund für die bereits genannte Fehlermeldung herausgefunden. Vielleicht?!

Mir ist folgendes aufgefallen:
Wenn sich das Codenamen-Umbenennen-Makro (langes Wort) durch die Tabellenblätter wühlt und die Laufvariable trifft auf einen Namen den es bereits gibt, in meinem Fall auf eine Tabelle mit Codename "Tabelle2", dann streikt das Makro und bringt die besagte Fehlermeldung.

Heißt für mich, wenn ein CodeName bereits existiert, dann stellt das Makro seinen Dienst ein.
Wie könnte man das Problem sauber umgehen?

Geholfen habe ich mir, dass ich zunächst allen Codenamen einen Offset verpasst habe z.B. so: "Tabelle" & i + 50 und dann nochmals das Makro ohne den Offset gestartet habe "Tabelle" & i.

Trotzdem würde es mich interessieren ob man dieses Prozedere umgehen kann und ohne Umwege zum richtigen Ergebnis kommen kann?

Ihr habt da bestimmt noch eine Idee!?

[Guschti]

Hallo Erich

Gelöscht

Gruss Guschti

[sharky51]

Gelöscht... bedeutet was?

[snb]

Die Idee hast du schon empfangen, jedoch ignoriert.

[sharky51]

Sorry,

die Idee habe ich nicht ignoriert nur nicht gleich verstanden.

Danke nochmals an alle Helfer und ein frohes Weihnachtsfest.