Thema: Festlegung einer von drei Maßnahmen durch den Zufallsgenerator

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zufall