Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus einer Liste von Mannschaften mögliche Paarungen zusammenstellen

Gruppe

Liste

Problem

Wie kann ich aus einer Liste von Mannschaften die möglichen Spielpaarungen zusammenstellen lassen?

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

StandardModule: basMain

Sub Schaltfläche1_BeiKlick()
   Dim iSpiel As Integer, iStart As Integer
   Dim iAktuell As Integer, iAnzahl As Integer
   Columns("A:B").ClearContents
   iAnzahl = Application.CountA(Columns(4))
   iStart = 1
   iAktuell = 2
   Do Until iStart > iAnzahl - 1
      iSpiel = iSpiel + 1
      Cells(iSpiel, 1) = Cells(iStart, 4)
      Cells(iSpiel, 2) = Cells(iAktuell, 4)
      If iAktuell = iAnzahl Then
         iStart = iStart + 1
         iAktuell = iStart + 1
      Else
         iAktuell = iAktuell + 1
      End If
   Loop
End Sub