VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Festlegung einer von drei Maßnahmen durch den Zufallsgenerator

Gruppe

Allgemein

Bereich

Zufall

Thema

Festlegung einer von drei Maßnahmen durch den Zufallsgenerator

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

    


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