Hallo zusammen, woran kann es liegen, das der CodeName bei neu angelegtem Datenblatt nicht angelegt werden kann solange Entwicklungsumgebung (Alt+F11) nicht sichtbar ist?
In der CodeName Zuweisungszeile wird der "Laufzeitfehler '9' Index außerhalb des gültigen Bereichs" ausgegeben. Sobald die Entwicklungsumgebung geöffnet wird, läuft der Code einwandfrei weiter. Habe viele verschiedene Schreibweisen ausprobiert, keine hat geholfen. Hier nur eine der vielen ausprobierten Schreibweisen:
With ThisWorkbook
.Worksheets.Add.Name = "Mysheet"
.VBProject.vbcomponents(Worksheets("Mysheet").CodeName).Name = "My_CodeName"
End with
' alternativ
' ThisWorkbook.VBProject.vbcomponents("Mysheet").Properties(5).Value = "My_CodeName"
' With Application.ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
' .Name = "My_CodeName"
' End With
' u.v.m.- das Ergebnis ist immer das gleiche.
Danke für eure RM!