VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Grafiken nach dem Zufallsprinzip anzeigen

Gruppe

Grafik

Bereich

Einsetzen

Thema

Grafiken nach dem Zufallsprinzip anzeigen

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

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Einsetzen