Office-Fragen.de

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

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

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

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

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

StefKe

Flotter Feger

StefKe

Flotter Feger

StefKe