VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus einer Liste von Mannschaften mögliche Paarungen zusammenstellen

Gruppe

Allgemein

Bereich

Liste

Thema

Aus einer Liste von Mannschaften mögliche Paarungen zusammenstellen

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

    


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