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