Hi Steffi,

du sprichst von einem vordefinierten Kreis. D.h. dieser existiert bereits? Dann hat er auch einen bestimmten Namen. Kannst du über die .Name Eigenschaft des Shapes oder oben links neben der Formelleiste auslesen, wenn dieser markiert ist.

Die Steuerung machst du dann über die Visible-Eigenschaft des Shapes. Dazu den folgenden Code einfach in das Tabellenmodul wo der Kreis (hier mit dem Namen "Oval 1" liegt:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(False, False) = "H1" Then
    If Target = 1 Then
      ActiveSheet.Shapes("Oval 1").Visible = True
    Else
      ActiveSheet.Shapes("Oval 1").Visible = False
    End If
  End If
End Sub

Gruß Mr. K.