Office: Option Button ausblenden lassen

Hallo zusammen,

Ich würde gerne bei einem bestimmten wert einer Zelle(Bsp. bei A7=2) einen option button ausblenden lassen, sobald A7="" soll der option button wieder eingeblendet sein.

Kann mir hierzu jemand helfen?
weiß jemand einen geeigneten makro-code.

Ich freue mich über eure Hilfe*Smilie

:)

 

Hallo

wie kommt denn der Wert in Zelle A7?
trägst du den von Hand ein oder wird der über eine Formel errechnet?

MfG Tom

 

Diesen Wert trage ich von Hand ein...

 

Hallo

dann gehört das hier in das Tabellenblatt wo es stattfinden soll

Code:

MfG Tom

 

Vielen Dank für deine Hilfe. *Smilie

Ich habe die Formel umgeändert, da ich möchte, dass der Option button verschwindet, sobald die Zelle A7 leer ist....

Allerdings funktioniert es leider nicht, es kommt auch keine Fehlermeldung



Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Address = "$A$7" Then
OptionButton1.Visible = IIf(Range("A7").Value = "", False, True)
End If
End Sub


Kannst du mir sagen woran das liegen könnte bzw. wie ich es testen kann

Danke schonmal *Smilie

 

Hi sunshine,

es gibt kein Private Sub Worksheet_Change1 Ereignis. Nimm die Eins weg. Vermutlich hast Du aber schon ein Private Sub Worksheet_Change (ohne Eins) Ereignis, dann muss das komplette Private Sub Worksheet_Change1 Ereignis entfernt und nur die Zeile mit der Visible Eigenschaft in das Original Ereignis (ohne die Eins) dort eingefügt werden..
Im Übrigen kannst Du die 1. If Anweisung weglassen:

Code:

 

Alles klar, ich habe jetzt unter das schon vorhandene Private Sub Worksheet_Change die Zeile: OptionButton1.Visible = IIf(Range("A4") = "", False, True) eingefügt. Nun bedeutet dies ja wenn A4 leer ist, dann soll der Option button sichtbar sein. Benötige ich jetzt nicht noch ein Kommando, das besagt, wenn A4 nicht leer ist, dass Option button 1 verschwinden soll?

 

A4 oder A7? egal, kannst Du ja anpassen.

Also wenn leer, dann sichtbar, dann so:
Code:

Ein extra Kommando ist nicht notwendig...

Probier es einfach aus...

 

ja, ich habe es auf A4 geändert....
allerdings funktioniert es nicht. Kann es evt. daran liegen, dass in Zelle A4 eine Formel steht, in der je nachdem der Wert "" ermittelt wird oder eine Zahl...

 

...kommt auf die Formel an. Bei

=WENN(UND(C4="";D4="");"";C4+D4)

funktioniert es, weil ja ein "" möglich ist, bei

=SUMME(C4:H4)

funktioniert es nicht. aber.... ich kenne Deine Formel nicht.

Es kann aber auch sein, dass der Entwurfsmodus noch eingeschaltet ist....*wink.gif*

 

Vielen dank für deine Hilfe *Smilie

Entwurfsmodus ist ausgeschaltet, habe ich soeben geprüft.

Meine Formel lautet: =WENN(H4="Deutschland";"1";"") -> jetzt möchte ich sobald ein anderes Land in Zelle H4 steht, sollte Option button 1 ausgeblendet werden....

Fehlermeldung erhalte ich ebenfalls keine... hättest du eine Idee woran das liegen könnte? Vielleicht an der Definition in vba?

 

Hallo sunshine1995,

Formelergebnisse lösen nicht das Ereignis 'Worksheet_Change' aus.
Da mußt Du auf das Ereignis 'Worksheet_Calculate' ausweichen, aber das ist dann volatile, da dieses Ergeignis parameterlos ist und somit bei jeder Formel-Neuberechnung ausgeführt wird.

Gruß von Luschi
aus klein-Paris

 

Vielen Dank für deine Antwort.

Bei Eingabe folgenden Codes:
Private Sub Worksheet_Calculate(ByVal Target As Range)
OptionButton1.Visible = IIf(Range("A4") = "", False, True)
End Sub
bringt er die Fehlermeldung: "Fehler beim Kompilieren -> Deklaration entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit demselben Namen"

 

...bei =WENN(H4="Deutschland";"1";"") in A4 genügt auch das Change Ereignis. Bei mir funktioniert das wunderbar. Heißt Dein Button vielleicht anders?

Und woher hast Du die Signatur Deines Calculate Ereignisses? Das brauchst Du nicht per Hand zu schreiben. Das kannst Du im Editor auswählen.

Und es lautet korrekt: Code:

 

Super, es funktioniert!!!! Danke euch für eure Unterstützung