Ein- und Ausblenden von Schaltflächen
06.10.2014 11:46:01
Schaltflächen
ich habe folgendes Problem:
Ich möchte, dass eine Schaltfläche aufgrund eines Wertes in einer Zelle ein- oder ausgeblendet wird. Dieser Wert ergibt sich aus der Auswahl eines Optionsfeldes, welches ich mit der Zelle Z1 verknüpft habe. Hierzu habe ich Folgendes erstellt:
Sub TestSichtbarkeit_Click()
If Range("Z1") = 2 Then
Sheets("Testseite").Shapes("TestSchaltfläche").Visible = False
End If
End Sub
Zugewiesen habe ich das ganze der TestSchaltfläche. Wenn nun in der Zelle Z1 der Wert 1 steht, passiert garnichts, sofern der Wert 2 beträgt, verschwindet die Testschaltfläche erst, wenn ich diese anklicke und taucht dann - unabhängig vom Wert der Zelle - nicht wieder auf. Was mache ich falsch?
Vielen Dank im Voraus :)
Anzeige