' Vorgegeben: Anzahl der Spieler in lAnzahl (GERADE!)
' Spielernamen im Feld sName(1..lAnzahl)
x = 1
For spieltag = 1 To lAnzahl - 1
   MsgBox "Neuer Spieltag"
   y = x + 1
   If y > (lAnzahl - 1) Then y = 1
   For spiele = 1 To lAnzahl \ 2 - 1
      MsgBox "Nächstes Spiel: " & sName(x) & " gegen " & sName(y)
      x = x - 1
      y = y + 1
      If x < 1 Then x = lAnzahl - 1
      If y > (lAnzahl - 1) Then y = 1
   Next spiele
   MsgBox "Nächstes Spiel: " & sName(lAnzahl) & " gegen " & sName(x)
Next spieltag