Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Festlegung einer von drei Maßnahmen durch den Zufallsgenerator

Gruppe

Zufall

Problem

Wie kann ich über einen Zufallsgenerator über 50 Durchläufe hinweg ermitteln lassen, ob Maßnahme 1, 2 oder 3 durchgeführt werden soll?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub ZuFaelle()
   Dim iRow As Integer
   Randomize
   For iRow = 2 To 51
      Cells(iRow, 2) = Int((3 * Rnd) + 1)
      Cells(iRow, 3) = Cells(iRow, 2)
      Do While Cells(iRow, 3) = Cells(iRow, 2)
         Cells(iRow, 3) = Int((3 * Rnd) + 1)
      Loop
      If Cells(iRow, 2) = 1 And Cells(iRow, 3) = 2 Then
         Cells(iRow, 4) = 3
      ElseIf Cells(iRow, 2) = 1 And Cells(iRow, 3) = 3 Then
         Cells(iRow, 4) = 2
      ElseIf Cells(iRow, 2) = 2 And Cells(iRow, 3) = 1 Then
         Cells(iRow, 4) = 3
      ElseIf Cells(iRow, 2) = 2 And Cells(iRow, 3) = 3 Then
         Cells(iRow, 4) = 1
      ElseIf Cells(iRow, 2) = 3 And Cells(iRow, 3) = 1 Then
         Cells(iRow, 4) = 2
      ElseIf Cells(iRow, 2) = 3 And Cells(iRow, 3) = 2 Then
         Cells(iRow, 4) = 1
      End If
   Next iRow
End Sub