von..bis Abfrage in Array

Private Sub AuswahlListeBundesland()
'Auswalliste für Bundesland aktualisieren
Dim hshA As Object
Dim i As Long
Dim varOrt, varName
Set hshA = CreateObject("Scripting.Dictionary")
varOrt = Me.cbb2.Text
varName = Me.cbb3.Text
For i = LBound(arrList) To UBound(arrList)
If (varOrt = "" Or varOrt = arrList(i, 5)) And (varName = "" Or varName = arrList(i, 2)) _
_
Then hshA(CStr(arrList(i, 1))) = 0
'        End If
Next
'Auswahlliste der Combobox zuweisen
Me.cbb1.List = hshA.keys
Set hshA = Nothing
End Sub

Private Sub Listbox_fuellen()
'Daten für Listbox zusammenstellen
Dim AnzTreffer As Long
Dim hshA As Object
Dim i As Long
Dim Zeile As Long, Spalte As Long
Dim varBundesland, varOrt, varName, varKey
Set hshA = CreateObject("Scripting.Dictionary")
varBundesland = Me.cbb1.Text
varOrt = Me.cbb2.Text
varName = Me.cbb3.Text
AnzTreffer = 0
For i = LBound(arrData, 1) To UBound(arrData, 1)
If (varBundesland = "" Or varBundesland = arrData(i, 1)) Then
If (varOrt = "" Or varOrt = arrData(i, 5)) Then
If (varName = "" Or varName = arrData(i, 2)) Then
AnzTreffer = AnzTreffer + 1
hshA(CStr(i)) = 0
End If
End If
End If
Next
Me.lst2.Clear
If AnzTreffer > 0 Then
ReDim arrList(1 To AnzTreffer, LBound(arrData, 2) To UBound(arrData, 2))
AnzTreffer = 0
For Each varKey In hshA.keys
Zeile = Val(varKey)
AnzTreffer = AnzTreffer + 1
For Spalte = LBound(arrData, 2) To UBound(arrData, 2)
arrList(AnzTreffer, Spalte) = arrData(Zeile, Spalte)
Next
Next
With Me.lst2
.List = arrList
.ListIndex = 0
End With
End If
Set hshA = Nothing
End Sub