commandbutton.caption
27.03.2009 12:12:54
steffen
ich habe im workbook open ein makro zum erstellen eines commandbutton.nun möchte ich die bezeichnung ändern,doch all meine versuche scheitern.
Private Sub Workbook_Open()
'Info.Show
Dim myButton As OLEObject
Dim Zelle As Range
Set Zelle = Sheets("Original").Range("R1")
With Zelle
Set myButton = Tabelle1.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=110, Height:=25)
End With
CommandbuttonName
'dann Über ein Modul
Sub CommandbuttonName()
Sheets("Original").CommandButton1.Caption = "Bearbeiten"
End Sub
'ich habs auch mit diesem code in diesem Modul versucht:
'Sheets("Original").CommandButton1.Caption = "Bearbeiten"-Fehlermeldung!
Ich danke euch!
viele grüße steffen