Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spielpaarungen zusammenstellen

Gruppe

Bearbeiten

Problem

Wie kann ich für 6 Tennisspieler die Paarungen über VBA nach dem Zufallsprinzip zusammenstellen lassen?

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

StandardModule: basMain

Sub Zufall()
   Dim rngA As Range, rngB As Range, rngC As Range
   Dim iZufall As Integer
   Randomize
   Set rngA = Range("B1:C3")
   rngA.ClearContents
   For Each rngB In rngA.Cells
      Set rngC = Range("A1")
      While Not rngC Is Nothing
         iZufall = Int((6 * Rnd) + 1)
         Set rngC = rngA.Find(Cells(iZufall, 1))
      Wend
      rngB.Value = Cells(iZufall, 1)
   Next rngB
End Sub