ich erstelle gerade eine Excelliste für unsere 8 Tennisspieler.
es sollte jeder mit jedem spielen, der Platz ist aber nur für 4 Spieler, für 32 Spieltage.
Vielleicht hat schon jemand sowas erstellt ?
mfg
walter
gleiche Anzahl
spielt ! Zum Beispiel sollte Dieter mit Kurt nicht 4x spielen sondern annährend 8x .
Sub Spieler_setzen()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Spieltage")
Dim a, b, d As Object, i&, j&, k&, l&
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
With Ws
a = .Range("D12:k12")
b = .Range("D12:k" & .Cells(.Rows.Count, "D").End(xlUp).Row)
For i = LBound(b) To UBound(b)
For j = LBound(b, 2) To UBound(b, 2) - 2
d.Add b(i, j), ""
Next j
For k = LBound(a, 2) To UBound(a, 2)
If Not d.exists(a(1, k)) Then
l = l + 1
b(i, 4 + l) = a(1, k)
End If
Next k
d.RemoveAll: l = 0
Next i
.Range("D12:I" & .Cells(.Rows.Count, "D").End(xlUp).Row) = b
End With
Set Wb = Nothing: Set Ws = Nothing
Erase a: Erase b: Set d = Nothing
End Sub
mfg1 | : | 2 | 3 | : | 4 | |
4 | : | 1 | 2 | : | 3 | |
1 | : | 3 | 4 | : | 2 | |
2 | : | 1 | 4 | : | 3 | |
1 | : | 4 | 3 | : | 2 | |
3 | : | 1 | 2 | : | 4 |
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010 |
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |