Controls umbenennen

[StefKe]

Hallochen allerseits, ich möchte Checkbox etc... umbenennen.

Code:

Sub umbenennen()
    Dim ObCb As Object
    Dim oldName
    Dim newName
   
    For Each ObCb In UserForm1.Controls
        oldName = ObCb.Name
        If oldName = "CheckBox1" Then
           newName = Replace(oldName, "Check", "chk")
            ObCb.Name = newName
        End If
    Next ObCb
End Sub

"Eigenschaft kann zur Laufzeit nicht gesetzt werden" - wie kann der Name dennoch geändert werden?


Danke
Stefan

[Flotter Feger]

Hallo,

ein Control zur Laufzeit umbennen ??? Weshalb ? Völlig unnötig und Excel läßt es auch nicht zu ... siehst du an der Fehlermeldung.

Eventuell solltest da noch mal drüber nachdenken ... oder einfach mal erzählen, was du vor hast.

Sabina

[StefKe]

Hallo Sabina, auf einer Mulitpage liegen 4 Pages. Die auf Page(4) liegenden Controls werden zBsp. über "Pg4cmdMitglieder" angesprochen. Aber manchmal ändern sich Pläne, Pages werden gelöscht oder verschoben. Und ich wollte "Pg4cmdMitglieder" in "Pg0cmdMitglieder" umbenennen.
Sprich: "Pg" & Pages.Value & "cmdMitglieder" - das war der Plan, funzt so aber leider nicht :-(

...oder ist da Handarbeit angesagt???

Danke
Stefan

[Flotter Feger]

Hallo,

genau aus dem Grund, läßt man die Namen der Controls einfach so stehen, wie Excel sie benennt.

Du musst nicht nur die Namen der Controls ändern, sondern auch die Events und die gesamten Codes, die sich eventuell auf die Controls und deren Eigenschaften beziehen.

Muss doch nicht sein. Jedes Control ist einmalig ... reicht doch.

Sabina

[StefKe]

Ja klar, aber ich fand es so schön alle Controls alphabetisch geordnet zur zugehörigen Seite geordnet zu finden - aber muss nicht sein. Den Code hätte ich mit Strg+H geändert, hätte :-) nun nicht mehr....

Aber Danke und enen schönen Tag noch -
Stefan