Opgelost Filter op kolommen i.p.v. rijen

[Manusje]

Goedendag,

Zie bestand in bijlage.
Dit is een stukje uit een jaaroverzicht, waarin ± 700 collegae hun afwezigheid e.d. inzetten.
Dit kan op dagdeel of vervanging voor pauze en bijv vakantie.
De datums staan verticaal in kolom A t/m E.
Vanaf F staan de namen van de collegae. [Dit zijn er ± 700]
Zij moeten zelf het overzicht aanvullen. Dit gebeurt wekelijks.
In cel C2 staat een gegevensvalidatie op rij 4, welke start in kolom F tot K.
Is het mogelijk om hier een filter op te zetten, zodat als de collegae zich heeft geselecteerd in cel C2, dat zijn kolom opschuif ter hoogte van kolom F.

Op een ander tabblad komen de gegevens van in totaal 3 tabbladen bij elkaar middels HORIZON.ZOEKEN en VERT,ZOEKEN.
Ik zie de reactie tegemoet en alvast bedankt.
Jan

 

[Warme bakkertje]

In de bladmodule van Blad1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C2")) Is Nothing Then
        col = Application.Match(Target, Rows(4), 0)
        If Not IsError(col) Then
            Application.Goto Cells(1, col), True
        End If
    End If
End Sub

 

[emields]

je kan het ook zo doen.

 

[Manusje]

Goedemorgen,
Ontzettend bedankt voor de oplossing.
Ik kan hier volledig mee uit de voeten.
Groet,
Jan