Button per Makro umbenennen
21.12.2006 08:21:06
Michael
Ich habe einen Button in einem Excelfile, den ich nur einmal brauche. Nach Benutzung löscht er sich selbst mit:
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
Da ich den Button bei Neustart wieder brauche, habe ich mir damit beholfen:
Sub workbook_open()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=582, Top:=37.5, Width:=104.25, Height:= _
27.75).Select
End Sub
Nur wie bekomme ich die Umbenennung hin? Ich habe es schon mit dem Befehl Caption in allen möglichen Varianten probiert, funktioniert aber nicht. Eine Möglichkeit wäre noch, den Button zu verstecken und bei Neustart wieder aufzudecken, allerdings weiss ich nicht, wie das geht.
Danke für die Hilfe schon mal,
Michael