vba excel om overzicht te verfijnen

[MARINA111]

Beste

Een tijdje geleden kreeg ik hulp van Timshel om een mooi overzicht van gegevens te maken (wat met draaitabel niet lukte), omdat in de kruising codes moesten komen en geen getallen.
Nu zou ik nog een stapje verder willen, de namen zouden er enkel mogen inkomen als ze in die bepaalde periode voorkomen.
Ik post het voorbeeldje in bijlage en zou heel dankbaar zijn als er me hier ook nog iemand mee verder helpt, want mij lukt het niet.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long, Br
    
    If Target.Address = "$B$1" Then
        On Error Resume Next
        Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
        Br = Sheets("invulblad").Cells(1).CurrentRegion
        With CreateObject("Scripting.Dictionary")
            For i = 2 To UBound(Br)
                If Br(i, 12) = Target Then
                    If Br(i, 1) >= Sheets("Samenvatting").Range("B2") And Br(i, 1) <= Sheets("Samenvatting").Range("H2") Then x0 = .Item(Br(i, 6))
                End If
            Next
            Range("A3").Resize(.Count) = Application.Transpose(.Keys)
        End With
    End If
    
End Sub

 

[snb]

@WB

1 suggestie:

gebruik

x0 =.Item(Br(i, 6))

ipv

.Item(Br(i, 6)) = 0

 

[Warme bakkertje]

@ snb

Doe ik normaal ook maar deze zat al in het bestand (en na 15 uur werken mijn hersens toch iets minder scherp )

 

[snb]

Ik heb niks gezegd... :thumb:

 

[MARINA111]

:thumb:Het werkt prima, bedankt !!

 

[Warme bakkertje]

Graag gedaan, en zet je de vraag dan nog even op opgelost.