Thema: Aus einer Liste von Mannschaften mögliche Paarungen zusammenstellen

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

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