Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Grafiken nach dem Zufallsprinzip anzeigen
Gruppe
Einsetzen
Problem
Bei Betätigung von F9 soll nach dem Zufallsprinzip eine von 3 Grafiken angezeigt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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