Gruppe
Grafik
Problem
Bei Betätigung von F9 soll nach dem Zufallsprinzip eine von 3 Grafiken angezeigt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Calculate()
If Range("Number").Value = 0 Then
Pictures(2).Visible = False
Pictures(3).Visible = False
Pictures(1).Visible = True
ElseIf Range("Number").Value = 1 Then
Pictures(1).Visible = False
Pictures(3).Visible = False
Pictures(2).Visible = True
ElseIf Range("Number").Value = 2 Then
Pictures(1).Visible = False
Pictures(2).Visible = False
Pictures(3).Visible = True
End If
End Sub