Hey,  Ich habe einen funktionierenden VBA Code von einer Excel in eine andere kopiert (natürlich den Makronamen angepasst)

allerdings bringt er mir jetzt (bei roter Schrift)    Ausdruck erforderlich.   Kann mir hier jemand sagen, wie ich das Problem löse ?

also hier der Anfang vom Code:

If Range("H1") = 1 Then

  
 ActiveSheet.Shapes.Range(Array("Oval 3")).Select

     With Selection.ShapeRange.Fill
        .Visible = msoFalse
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0.8
        .Solid
   End With
  
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 1.2
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
   
    With Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 14.1732283465
  
    End With