Gruppe
Ereignis
Problem
In Abhängigkeit der Auswahl in Zelle B9 sollen unterschiedliche Grafiken angezeigt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Calculate()
If ActiveCell.Address <> "$B$8" Then Exit Sub
ActiveSheet.Shapes("Archiv").Visible = Range("B8").Value - 1
ActiveSheet.Shapes("Antworten").Visible = Not Range("B8").Value - 1
End Sub