Overzicht maken van een grote tabel met leerlingen

[Jaspernolles]

Ik heb voor mijn school een document met leerlingen die extra begeleiding krijgen.
Nu wil ik een overzicht krijgen uit de gehele lijst welke begeleider welke leerlingen begeleid.
Ik had dat nu gedaan door in een ander tabblad de kolom met namen kolom A en de Kolom van die begeleider waarbij een 1 is ingevuld voor leerlingen die ze begeleid middels een verwijzing te dupliceren en dan in een excel tabel alleen de waardes met 1 weer te geven.

Helaas werkt dit deels, want het is geen vaststaande lijst. Deze kan wekelijks met enkele leerlingen worden aangevuld of er kunnen leerlingen vanaf gaan als de begeleiding gestopt is. Als ik dit test dan pakt die dit niet automatisch bij de gedupliceerde tabellen. Dan moet ik eerst de selectie eruit halen en dan opnieuw de selectie van alleen 1 weergeven toevoegen om dit te krijgen.

Is er een andere manier om leerlingen te selecteren die in een bepaalde kolom een 1 hebben staan?
Bestand toegevoegd. In de tabbladen staat wat ik wil, alleen nu wordt dit niet bijgewerkt als je bij het eerste tabblad een leerling erbij zet. Wat ik graag wil is dat dit automatisch gebeurd. Ik weet dat er formules voor zijn om dit te doen, maar na een hoop proberen was dit voor nu tijdelijk de snelste oplossing, alleen voor de toekomst niet wenselijk

 

[rmk75]

Plaats anders een aangepast bestand met fictieve data, waarin je aangeeft wat je ongeveer verwacht.

 

[Timshel]

Voeg een nieuwe werkblad "Blad1" in en draai de macro

Sub tsh()
    Dim Br
    Dim i As Long, j As Long
    Dim Sh
    
    Set Sh = Sheets("Blad1")
    Sh.Cells.Clear
    Br = Sheets(1).Cells(1).CurrentRegion
    With CreateObject("System.Collections.Arraylist")
        .Add Array("Leerling", "Cursus")
        For i = 2 To UBound(Br)
            For j = 9 To UBound(Br, 2) - 3
                If Br(i, j) = 1 Then .Add Array(Br(i, 1), Br(1, j))
            Next
        Next
        Sh.Cells(1, 1).Resize(.Count, 2) = Application.Index(.ToArray, 0)
    End With
End Sub