interessanter Ansatz; darüber muß ich mal nachdenken. Einen
Schönheitsfehler hat Dein Ansatz: in der zweiten Tabelle
stehen eben die Teilnehmer ungünstigerweise nicht alle
untereinander sondern auch nebeneinander. Das läßt sich durch
einfaches umkopieren lösen, ist daher also kein großes
Problem! Eleganter wäre es allerdings wenn sich das umkopieren
vermeiden ließe. Es ist aber eine realisierbare Lösung die mir
weiterhilft!
Moin Christian,
wenn deine Tabelle2 so aussieht:
Tabellenblatt: [Mappe1]!Tabelle2
│ A │ B │ C │ D │ E │ F │ G │ H │ I │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
1 │ │ Tag1 │ │ │ │ Tag2 │ │ │ │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
2 │ │ Name │ Vorn │ Name │ Vorn │ Name │ Vorn │ Name │ Vorn │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
3 │ G1 │ N17 │ V17 │ N4 │ V4 │ N34 │ V34 │ N47 │ V47 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
4 │ G2 │ N25 │ V25 │ N43 │ V43 │ N17 │ V17 │ N7 │ V7 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
5 │ G3 │ N15 │ V15 │ N31 │ V31 │ N33 │ V33 │ N3 │ V3 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
6 │ G4 │ N10 │ V10 │ N38 │ V38 │ N13 │ V13 │ N40 │ V40 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
7 │ G5 │ N4 │ V4 │ N34 │ V34 │ N47 │ V47 │ N18 │ V18 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
8 │ G6 │ N43 │ V43 │ N44 │ V44 │ N7 │ V7 │ N17 │ V17 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
9 │ G7 │ N31 │ V31 │ │ │ N3 │ V3 │ N37 │ V37 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
10 │ G8 │ N38 │ V38 │ N13 │ V13 │ N40 │ V40 │ N36 │ V36 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
11 │ G9 │ N34 │ V34 │ N47 │ V47 │ N18 │ V18 │ N50 │ V50 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
12 │ G10 │ N44 │ V44 │ N7 │ V7 │ │ │ N20 │ V20 │
───┼─────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
13 │ G11 │ N33 │ V33 │ N3 │ V3 │ N37 │ V37 │ N29 │ V29 │
───┴─────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┘
A1:I13
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
(„Tag1“ steht mittig über B1:E1, „Tag2“ mittig über F1:I1 usw.)
und deine Tabelle1 sieht so aus:
Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │ C │
───┼──────┼──────┼─────────┤
1 │ Name │ Vorn │ Gruppen │
───┼──────┼──────┼─────────┤
2 │ N1 │ V1 │ │
───┼──────┼──────┼─────────┤
3 │ N2 │ V2 │ │
───┼──────┼──────┼─────────┤
4 │ N3 │ V3 │ │
───┼──────┼──────┼─────────┤
5 │ N4 │ V4 │ │
───┼──────┼──────┼─────────┤
6 │ N5 │ V5 │ │
───┼──────┼──────┼─────────┤
7 │ N6 │ V6 │ │
───┼──────┼──────┼─────────┤
8 │ N7 │ V7 │ │
───┼──────┼──────┼─────────┤
9 │ N8 │ V8 │ │
───┼──────┼──────┼─────────┤
10 │ N9 │ V9 │ │
───┼──────┼──────┼─────────┤
11 │ N10 │ V10 │ │
───┴──────┴──────┴─────────┘
A1:C11
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Dann drücke Alt+F11, Einfügen Modul, dortrein kopierst du nachstehenden Code, schließt den Editor.
In Excel läßt ud dann über Alt+F8 das Makro „Gruppen“ ausführen.
Gruß
Reinhard
Sub Gruppen()
Dim Zei As Long, Such As Range, Gef As String, Gruppen As String
Dim wks2 As Worksheet
Set wks2 = Worksheets("Tabelle2")
With Worksheets("Tabelle1")
For Zei = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
Gruppen = ""
Set Such = wks2.Range("B3:AG13").Find(.Cells(Zei, 1).Value)
If Not Such Is Nothing Then
Gef = Such.Address
Do
If Such.Column Mod 2 = 0 Then
If Such.Offset(0, 1).Value = .Cells(Zei, 2).Value Then
Gruppen = Gruppen & wks2.Cells(Such.Row, 1).Value & ","
End If
End If
Set Such = wks2.Range("B3:AG13").FindNext(Such)
Loop While Not Such Is Nothing And Such.Address Gef
End If
If Len(Gruppen) \> 0 Then Gruppen = Left(Gruppen, Len(Gruppen) - 1)
.Cells(Zei, 3).Value = Gruppen
Next Zei
End With
End Sub