Auslosung von Spielern
Spielern
die Auslosung von Spielern funktioniert jetzt.
Doch bei mehreren Spielern aus einem Verein lost er noch nicht richtig.
Bei mehreren Vereinen mit mehr als 2 Spielern kommt es immernoch vor das Spieler aus dem gleichen Verein gegeneinander spielen.
Wie lässt sich das abstellen?
Vielen Dank
Jürgen
Sub ListeSortieren16()
Dim i As Integer, _
laR As Byte, anzFr As Byte
Application.ScreenUpdating = False
Call ZufallsZahl
For i = 17 To 2 Step -1
If Range("B" & i).Text "Freilos" Then
laR = i
Exit For
End If
Next i
Range("B1:D" & laR).Sort Key1:=Range("D2"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
If laR Sub ZufallsZahl()
Dim c As Range, Ber1 As Range, Ber2 As Range, _
ZuZ As Byte
Set Ber1 = Range("D2:D17")
Ber1.ClearContents
For Each c In Ber1
ZuZ = Int((16 * Rnd) + 1) 'Zufallszahl: 1 bis 128
Set Ber2 = Ber1.Find(ZuZ, lookat:=xlWhole)
While Not Ber2 Is Nothing
ZuZ = Int((16 * Rnd) + 1)
Set Ber2 = Ber1.Find(ZuZ, lookat:=xlWhole)
Wend
c.Value = ZuZ
Next c
Set Ber1 = Nothing
Set Ber2 = Nothing
End Sub
Sub Doppel()
Dim i&, lngLast&
lngLast = Cells(1, 3).End(xlDown).Row
For i = 2 To lngLast
If Cells(i, 3) = Cells(i + 1, 3) Then
Range(Cells(i + 2, 2), Cells(i + 2, 3)).Cut
Range(Cells(i + 1, 2), Cells(i + 1, 3)).Insert Shift:=xlShiftDown
End If
Next
End Sub