Grafik ein- bzw. ausblenden

Question

Hallo Zusammen,
ich hab eine Bitte an euch und benötige eure Hilfe.
Im Anschluss hab ich hier folgender Tabellencode der auch funktioniert wenn man in Zelle O37 den Wert einträgt, also >= 2
oder < 2 , danach wird die Grafik ausgeblendet bzw. eingeblendet.
Wenn aber in Zelle O37 eine Formel steht und der Wert durch diese
Formel ermittelt wird funktioniert das nicht mehr.
Meine Wenn Formel müsste in z.B. so aussehen:
Wenn(oder(O37 >= 2;O38 >= 2;O39 >= 2) ; dann Grafik ausgeblendet
Wenn(oder(O37 < 2;O38 < 2;O39 < 2) ; dann Grafik eingeblendet
Die Werte in den Zellen werden durch Formeln ermittelt.



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "O37" Then
If Target.Value >= 2 Then

ActiveSheet.Shapes("Grafik 1").Visible = False

ElseIf Target.Address(0, 0) = "O37" Then
If Target.Value < 2 Then

ActiveSheet.Shapes("Grafik 1").Visible = True

End If
End If
End If
End Sub

Ich habe Windows 7 und Excel 2010

Vielen vielen Dank schon mal im voraus !
Gruß Peter

Answer 1

Hallo Peter,

wenn du deine Formel in O37 schreiben willst, dann kannst du die Zelle O37 nicht mit der selben Formel überwachen ;-).

Die Formel in O37 könnte z.B. so lauten, wenn die Zellen O38 und O39 überwacht werden sollen:
=WENN(ODER(O38>=2;O39>=2);2;1)

Das Ein- und Ausblenden der Grafik kannst du mit dem Calculate-Ereignis des Arbeitsblatts machen:

Private Sub Worksheet_Calculate()

If Range("O37") = 2 Then
ActiveSheet.Shapes("Grafik 1").Visible = False
Else
ActiveSheet.Shapes("Grafik 1").Visible = True
End If

End Sub

Gruß

M.O.

Answer 2

Hallo M.O.

vielen , vielen Dank für die schnelle Antwort, das hat wunderbar geklappt, genau das was ich gesucht habe.
Ja, ja das mit dem vba ist für Laien nicht so einfach ...

Nochmals herzlichen Dank

Gruß Peter