Macro opzoeken aanwezigen op bepaald tijdstip

[dickbeverdam]

Zie bijgevoegd voorbeeld.
In tabblad "data": heb ik een overzicht van mensen met aankomst en vertrektijd.

In tabblad "aanwezig" wil ik door middel van een macro kunnen zien wie op een bepaald tijdstip aanwezig was, het tijdstip staat vermeld in cel B1.

 

[Niels28]

Sub aanwezig()
With Sheets(2)
For Each cl In Sheets(1).Range("A:A").SpecialCells(2)
If cl.Offset(, 1).Value <= .Range("B1").Value And cl.Offset(, 2).Value >= .Range("B1") Then c01 = c01 & cl.Value & "|"
Next
.Range("A4").Resize(UBound(Split(c01, "|"))).Value = Application.Transpose(Split(c01, "|"))
End With
End Sub

Niels

 

[Niels28]

Fijn dat het werkt en leuk dat je een terugkoppeling geeft.

Niels

 

[dickbeverdam]

Hoi Niels,

Ik was zelf nog even verder aan het puzzelen hoe de code precies in elkaar zat, en of ik deze zelf kon uitbreiden voor een ander excelbestand.
Maar het is gelukt!

Bedankt voor de code!