|
Hallo liebe Forumsmitglieder.
Ich habe folgendes Problem und komme hier nicht so richtig weiter.
Ich habe ein Rechteck in dem ein Text steht (Rechteck: abgerundete Ecken 2) und ein anderes Rechteck mit dem Wort "einverstanden" (Rechteck: abgerundete Ecken 1).
Wenn der Text gelesen und verstanden wurde, soll dieser über den Button "einverstanden" ausgeblendet werden. Das habe ich über einen Toggle Button umgesetzt, was auch gut funktioniert.
Modul 1:
Sub Toggle()
ActiveSheet.Shapes("Rechteck: abgerundete Ecken 2").Visible = Not ActiveSheet.Shapes("Rechteck: abgerundete Ecken 2").Visible
End Sub
Das Problem ist jetzt dieser Button mit dem Wort "einverstanden". Dieser soll sich, sobald man einmal darauf geklickt hat, ebenfalls ausblenden oder besser wäre, wenn sich dieser löscht.
Hat einer von euch lieben eine Idee wie man so etwas umsetzen kann?
Ich danke euch schonmal im Vorfeld!
|