Hallo zusammen,
Ich habe die IF-Anweisung weiter angepasst. Diese sieht nun so aus:
If D50 = "WAHR" Then
Sheets("Tabelle1").Shapes("Ellipse21").Visible = False
Sheets("Tabelle1").Shapes("Ellipse19").Visible = True
Else
Sheets("Tabelle1").Shapes("Ellipse19").Visible = False
Sheets("Tabelle1").Shapes("Ellipse21").Visible = True
End if
Der Code stoppt bei der vorletzten Zeile mit der Fehlermeldung:
Das Element mit dem Anngegebenen Namen wurde nicht gefunden.
Den Namen vom Element "Ellipse21" habe ich durch Makro zuweisen herausbekommen. Folglich muss es existieren.
Kann mir eigentlich nur noch einen Syntaxfehler vorstellen.
Bin für hilfe dankbar
Grüsse und Gute Nacht gary