Gruppe
Allgemein
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?
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