'zuerst schreibe ich die Teilnehmer sortiert in eine Listbox  List(0) = bester 
' Spieler 
For xx = 1 To maxanzahl
List2.AddItem pdata(xx, 0) & " " & pdata(xx, 1) & " " & pdata(xx, 2)
Next
'Dann eine Schleife damit ich auf meine Paarungsanzahl komme
For xx = 1 To maxanzahl / 2
' tmpschweizer = mein Hilfsarray in das alle schon dagewesenen gespeichert 
' werden
' tmpschweizer(1-anzahl der spieler,0 - anzahl der runden) in tmpschweizer( 
' xx,0)steht 
' die spielerid und in 1- rundenanzahl stehen alle schon gelosten spieler für 
' diese ID
 
' Diese Schleife sucht die position in dem Hilfsarray für den besten spieler
For xx = 1 to maxanzahl
If List2.List(0) = tmpschweizer(xx, 0) Then
Index = xx
End If
Next
geht = 1
For yy = 1 To List2.ListCount - 1
For xx = 1 To runden 
If List2.List(yy) = tmpschweizer(Index, xx) Then
geht = 0
End If
Next
If geht = 1 Then
List1.AddItem List2.List(0) & List2.List(yy)
List2.RemoveItem (0)
List2.RemoveItem (yy)
End If
Next