VBA niet gebruikt in lijst

[HSV]

Zo?

Sub hsv()
Dim sv, hs, sq, i As Long, datum As Date, c00
 sv = Sheets("data").Cells(4, 1).CurrentRegion
 hs = Application.Transpose(Sheets("personeel").Range("a5:a13"))
 sq = Sheets("personeel").Range("a5:b13")
 c00 = [transpose(row(1:9))]
 datum = Sheets("info").Cells(1, 3)
   For i = 2 To UBound(sv)
      If sv(i, 1) = datum Then c00 = Filter(c00, Application.Match(sv(i, 2), hs, 0), 0)
    Next i
 Sheets("info").Cells(48, 5).Resize(UBound(Split(Join(c00))) + 1) = Application.Transpose(Application.Index(sq, c00, 2))
End Sub

 

[moensk]

HSV,

heb het werkend gekregen naar wens, bedankt voor u hulp
hierbij het script dat nu gebruikt wordt...

'bepalen van beschikbare chauffeurs
sv = Sheets("data").Cells(2, 1).CurrentRegion
c00 = Join((Application.Transpose(Sheets("chauffeurs").Range("A2:A293"))), "$")

Dim c01(500)
Dim c02(500)

datum = Sheets("info").Cells(1, 4)
    For b = 2 To UBound(sv)
      If sv(b, 5) = datum And InStr(c00, sv(b, 13)) Then c00 = Replace(c00, sv(b, 13) & "$", "$")
    Next b
    
    For zzz = 1 To UBound(Split(c00, "$"))
      If Split(c00, "$")(zzz) <> "" And InStr(Split(c00, "$")(zzz), "E") Then
         c01(zzt) = Split(c00, "$")(zzz)
         zzt = zzt + 1
      End If
    Next zzz

    ' Find the last non-blank cell in column A(1)
    mRow = Sheets("chauffeurs").Cells(Rows.Count, 1).End(xlUp).Row

For iii = 0 To UBound(c01()) - 1
    For yyy = 1 To mRow
        If c01(iii) = Sheets("chauffeurs").Cells(yyy, 1).Value Then
           c02(iii) = Sheets("chauffeurs").Cells(yyy, 6).Value
           Exit For
        End If
    Next yyy
Next iii
             
Sheets("info").Cells(90, 4).Resize(UBound(c02()) + 1) = Application.Transpose(c02())

 

[HSV]

Graag gedaan, ik zie wel enig erkenning tussen beide codes.