Button über Makro einrichten geht nicht
Achim
Ich habe ein Button über das Steuerelement "Formular" eingerichtet.
Wenn ich das Makro starte erscheint ein Fehler den ich mit nicht erklären.
Wer kann helfen!!!!
ActiveSheet.Buttons.Add(600.75, 232.5, 72, 72).Select
Selection.OnAction = "Aktualisieren"
Selection.ShapeRange.IncrementLeft -295.5
Selection.ShapeRange.IncrementTop -229.5
Selection.ShapeRange.ScaleWidth 2.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.12, msoFalse, msoScaleFromTopLeft
(An der Stelle taucht der Fehler auf)ActiveSheet.Shapes("Button 1185").Select
Selection.Characters.Text = "Offene Dienste aktualisieren !!!!"
With Selection.Characters(Start:=1, Length:=33).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("M1").Select
End Sub
Gruß evtl. Dank Achim