ich hab grad mal wieder nen gewaltigen Hänger bei einer Schaltfläche, die ich benennen möchte.
Den angefügten Code verwende ich zum Einfügen und benennen des Buttons:
ActiveSheet.Buttons.Add(138.75, 274.5, 186.75, 54.75).Select
ActiveSheet.Shapes("Button 28").Select
Selection.Characters.Text = "Hauptseite"
With Selection.Characters(Start:=1, Length:=10).Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Dumm ist nur, dass der Code nicht mehr funktioniert, wenn der Button 29 eingefügt wird.
Könntet ihr mir freundlicherweise weiterhelfen.
D&G
Albert