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