Waarde uit rij zoeken en combineren in een cel.

[patrixweb]

Goedemiddag Excellers,

Als ik een aantal rijen heb met in A2 de naam en daarachter op bepaalde data een waarde. Hoe krijg ik die waarde dan netjes achter elkaar, misschien gescheiden met een komma, op een andere tabblad?

In welke richting moet ik denken om dit te kunnen realiseren?

In de bijlage een voorbeeld bestand.

 

[AHulpje]

Zo misschien:

Sub Samenvatting()
    With Sheets("Blad1").Range("A1").CurrentRegion
        For rij = 2 To .Rows.Count
            aantal = 0
            datums = ""
            For kol = 2 To .Columns.Count
                If .Cells(rij, kol) <> "-" Then
                    aantal = aantal + 1
                    datums = datums & .Cells(rij, kol) & ";"
                End If
            Next
            Sheets("Blad2").Cells(rij, 1) = .Cells(rij, 1)
            Sheets("Blad2").Cells(rij, 2) = aantal
            Sheets("Blad2").Cells(rij, 3) = datums
        Next
    End With
End Sub

 

[AlexCEL]

Voor Excel 365, en als je namenlijst onder en boven gelijk is:

=TEKST.COMBINEREN(", ";WAAR;TEKST(FILTER(B$1:Q$1;B2:Q2<>"-";"");"dd.mm"))

 

[patrixweb]

Hi Ahulpje,

Dat is bijna wat ik bedoel.

Eigenlijk moet de datum verschijnen i.p.v. de waarde (ABC). Zou de code ook automatisch kunnen draaien of is dat niet verstandig?