Tabel automatisch verkleinen

[Karag68]

Hallo allemaal,

Ik heb jullie hulp nodig bij mijn uitdaging.
Ik ben bezig om een overzicht te maken voor mijn sportclub waarin staat welke teams thuis spelen en welke uit.
Om mijn probleem uit te leggen heb ik een voorbeeldbestand toegevoegd waar hopelijk duidelijk is wat ik wil.
Links staat een tabel die ik nu heb. Hier heeft elk team een aparte regel per datum.
Wat ik nu wil is dat per datum 1 regel met alle teams weergegeven wordt.
Wie kan mij helpen?

 

[Leotaxi]

Cell G3 vullen bv met Datum

Sub test()
For x = 4 To Range("A" & Rows.Count).End(xlUp).Row
    If Application.CountIf(Range("G:G"), Range("A" & x)) = 0 Then
        Range("G" & Rows.Count).End(xlUp).Offset(1) = Range("A" & x)
    End If
Next
For i = 2 To 4
    For j = 4 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(j, i) <> vbNullString Then Cells(Application.Match(Cells(j, 1), Range("G:G"), 0), i + 6) = Cells(j, i)
    Next
Next
End Sub

mvg
Leo

 

[Karag68]

Leotaxi,
Hartelijk bedankt. Werkt perfect.