Beste mensen,
Ik wilde de zoekfunctie uitbreiden naar 35.
Zodra als ik bij de 10 kom krijg ik een foutmelding "Subscript out of range".
Zie de rode regel.
Kan iemand mij vertellen wat ik hier verkeerd doe en heeft iemand hier een oplossing voor?
Het hele bestand is helaas te groot om mee te sturen.
Dank je wel
Ik wilde de zoekfunctie uitbreiden naar 35.
Zodra als ik bij de 10 kom krijg ik een foutmelding "Subscript out of range".
Zie de rode regel.
Kan iemand mij vertellen wat ik hier verkeerd doe en heeft iemand hier een oplossing voor?
Code:
Private Sub cmdSearch_Click()
Dim lr As Long, x As Long, j As Long, arr As Variant, sn As Variant
With Sheet8
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A1", "I" & lr)
ReDim sn(1 To UBound(arr), 1 To 10)
For x = 1 To UBound(arr)
[COLOR="#FF0000"]arr(x, 10) = arr(x, 1) & arr(x, 2) & arr(x, 3) & arr(x, 4) & arr(x, 5) & arr(x, 6) & arr(x, 7) & arr(x, 8) & arr(x, 9) & arr(x, 10)[/COLOR]
Next
j = 0
For x = 1 To UBound(arr)
If InStr(1, LCase(arr(x, 10)), LCase(txtSearch)) > 0 Then
j = j + 1
'sn(j, 1) = arr(x, 1)
sn(j, 2) = arr(x, 2)
sn(j, 3) = arr(x, 3)
sn(j, 4) = arr(x, 4)
sn(j, 5) = arr(x, 5)
sn(j, 6) = arr(x, 6)
sn(j, 7) = arr(x, 7)
sn(j, 8) = arr(x, 8)
sn(j, 9) = arr(x, 9)
sn(j, 10) = arr(x, 10)
End If
Next
End With
Me.lstData.List = sn
End Sub
Het hele bestand is helaas te groot om mee te sturen.
Dank je wel