Office: möchte aus einer Starterliste Mannschaften generieren

Hallo zusammen,
bin neu im Forum, aber mit Excel ordentlich vertraut.
Mein Problem:
Möchte aus einer Starterliste immer 3 Starter - mit dem seleben 3stelligen Code - auf einem neuen Blatt zu einer Mannschaft zusammenführen.
Mein Versuch über VERWEIS und SVERWEIS liefern immer nur ein Mannschaftsmitglied.
Ein weiterer Weg war eine Verknüpfung auf eine neue Seite und mittels Sortierung die Mannschaften zu finden. Das ist aber wenig komfortabel den Layout und Formeln (Summe) muss immer neu erstellt werden.
Wie geh ich das richtig an.
Danke für Eure Unterstützung!
Gruß
Ref

 

Hallo,

im folgenden Beispiel ist eine STARTER-Liste enthalten, aus der per Zufallsauswahl 2 verschiedene AUSWAHL-Listen erstellt werden. Dabei ist die 1. Auswahlliste in C3:C6 vom Wert in B3 abhängig: nur wenn dort 1 enthalten ist, wird sie überhaupt aktualisiert, während die Liste in C9:D9 keine Bedingung für ihre Aktualisierung besitzt.

	A	B	C	D
2	[color=blue]STARTER[/color]		[color=blue]AUSWAHL[/color]
3	Franz	1	Marta
4	Anton		Anton
5	Anna		Anna
6	Manfred		Manfred
7	Norbert
8	Marta		[color=blue]AUSWAHL[/color]
9		2	Anna	Franz
10

Zelle	Formel
C3	{=WENN(B3=1;ZufallListe($A$3:$A$8);"")}
C4	{=WENN(B3=1;ZufallListe($A$3:$A$8);"")}
C5	{=WENN(B3=1;ZufallListe($A$3:$A$8);"")}
C6	{=WENN(B3=1;ZufallListe($A$3:$A$8);"")}
C9	{=ZufallListe(A3:A8)}
D9	{=ZufallListe(A3:A8)}

<table><tr><td>Achtung, Matrixformel enthalten!</td></tr><tr><td><span>Die geschweiften Klammern{} werden </span><span>nicht</span><span> eingegeben.</span></td></tr><tr><td><span>Verlassen Sie den Zelleneditor mit </span><span>Strg+Shift + Enter</span><span>, statt Enter alleine.</span></td></tr></table>[/parsehtml]

Im Folgenden das Makro, das die Auswahllisten erstellt; es ist zur Zeit so eingestellt, dass es diese Liste(n) nur erstellt, wenn sich in der STARTER-Liste etwas ändert (siehe Kommentar zur Volatile-Methode):

Code:

Public Function ZufallListe(Rg As Range) As Variant
' Ist die Volatile-Methode aktiviert, wird die "Function ZufallListe(Rg)"
'   bei jedem Change- oder Calculate-Ereignis ausgeführt;
' Ist die Volatile-Methode deaktiviert, wird die "Function ZufallListe(Rg)"
'   nur ausgeführt, wenn sich in "Rg" etwas geändert hat.
' Application.Volatile
'
  Dim Quelle As New Collection
  Dim Liste() As Variant
  Dim Wt As Range
  Dim I%, Zl%, Sp%, Anz%, Formel$
  Dim Transp As Boolean
  Dim Zuf%
  
  '1) Ermittle ob ein Spaltenarray oder Zeilenarray vorliegt
  '2) Ermittle wieviele Zeilen/Spalten im Array enthalten sind (Zl,Sp)
  With Application.ThisCell
    Formel$ = .Formula
    Zl% = 0: Sp% = 0
    If .Offset(0, 1).Formula = Formel$ Then Sp% = 1 Else Zl% = 1
    Do While .Offset(Zl%, Sp%).Formula = Formel$
      If Zl% Then Zl% = Zl% + 1 Else Sp% = Sp% + 1
    Loop
  End With
  
  'Lege Werte der Ziellistensteuerung fest: Transp, Anz, Liste(..)
  Transp = (Sp% = 0) 'True: Es ist ein Spaltenarray
  If Transp Then
    Anz = Zl%        'Spaltenarray
    ReDim Liste(1 To Zl%, 0)
  Else
    Anz% = Sp%       'Zeilenarray
    ReDim Liste(1 To Sp%)
  End If
  
  'Speichere Quellliste in der Collection "Quelle"
  For Each Wt In Rg.Cells
    Quelle.Add Item:=Wt.Value
  Next Wt
  
  'Starte Zufallszahlengenerator
  Randomize
  'Ermittle alle Einträge in der Zielliste
  For I% = 1 To Anz
    'Ermittle Nr. des Quelllisteneintrags per Zufallsgenerator
    Zuf% = Int(Quelle.Count * Rnd() + 1)
    'Speichere Quelllisteneintrag in der Zielliste
    If Transp Then
      Liste(I%, 0) = Quelle(Zuf%)
    Else
      Liste(I%) = Quelle(Zuf%)
    End If
    'Entferne Quelllisteneintrag aus der Quellliste
    Quelle.Remove Zuf%
  Next I%
  
  'Gib Zielliste zurück
  ZufallListe = Liste
  'Gib Quelle für Garbage-Collection frei
  Set Quelle = Nothing
End Function