Gruppe
Grafik
Problem
Wenn der Wert der Formel in B1 E ist, soll die Grafik sichtbar, andernfalls nicht sichtbar sein.
ClassModule: Tabelle1
Private Sub Worksheet_Calculate()
If Range("B1").Value = "E" Then
ActiveSheet.Pictures(1).Visible = True
Else
ActiveSheet.Pictures(1).Visible = False
End If
End Sub