Comandbutton in Tabellenblatt
05.01.2004 18:53:19
Michael
ich bin mal wieder am Ende mit meiner Weisheit. Ich habe in einem Tabellenblatt eine Menge Comandbuttons (aus Steuerelementtoolbox) mit unterschiedlichen Namen.
Ich möchte diese nun per VBA Code umbenennen. Folgenden Code verwende ich im Moment:
Sub Schaltflächen_umbenennen()
Set Mappe = Workbooks("Chargenliste-NSP1.xls")
Set GB = Mappe.Worksheets("Granulatbunker")
For I = 1 To GB.Shapes.Count
Name = GB.Shapes(I).Name
If Left(GB.Shapes(I).Name, 2) = HS Then GB.Shapes(I).Name = "B75" & Right(GB.Shapes(I).Name, 2)
Next I
End Sub
Obwohl im Eigenschaftsfenster die Buttons den Namen HS10 bis HS... haben erscheint bei
Name = GB.Shapes(I).Name
ComandButton1 als NAme, wodurch sich dann auch am Namen über den Code nichts ändern lässt. Verstehe nur nicht warum der Name der Abfrage ein anderer ist wie der im Eigenschaftsfenster.
Vielen Dank für eure Hilfe