Filter setzen

Dim claim As Workbook, bereich As Range
Set claim = Workbooks.Open(KCPfad)
Set bereich = claim.Sheets("Archiv").UsedRange
Dim rng As Range
Dim strFirst As String
Dim vtmp() As Long
Dim tntC As Integer
Call Tag_ermitteln
If Len(Trim(Kleinclaim_Auswertung.TextBox0)) = 0 Then Exit Sub
Kleinclaim_Auswertung.ListBoxClaim.Clear
ReDim vtmp(0)
Dim Status As String
Dim Ber As String
Status = Kleinclaim_Auswertung.ComboBox1
Ber = Kleinclaim_Auswertung.ComboBox2
Dim Day, Month, Year As String
Day = Kleinclaim_Auswertung.TextBox10
Month = Kleinclaim_Auswertung.ComboBox3
Year = Kleinclaim_Auswertung.ComboBox4
Dim leZeile As Long
'letzte Zeile in Spalte A suchen:
leZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Filter falls Monat und Jahr gesetzt
If Day > 0 Then
'Filter für Monat und Jahr in Zeile 23 "W" Datum erledigt setzen
bereich.Range("$A$1:$AF$" & leZeile).AutoFilter Field:=23, Operator:= _
xlFilterValues, Criteria2:=Array(1, Month & "/" & Day & "/" & Year)
With Sheets("Archiv")
Set rng = .Range("E2:E" & leZeile).Find(What:=Kleinclaim_Auswertung.TextBox0, Lookat:= _
xlWhole)
If Not rng Is Nothing Then
'If Not rng Is Nothing And Not Rows(rng).Hidden Then
strFirst = rng.Address
Do
If Not (IsNumeric(Application.Match(rng.Row, vtmp, 0))) Then
ReDim Preserve vtmp(UBound(vtmp) + 1)
vtmp(UBound(vtmp)) = rng.Row
If Status = "alle" And Ber = "alle" Then
Kleinclaim_Auswertung.ListBoxClaim.AddItem .Cells(rng.Row, 1) ' Claimnr.
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 1) = .Cells(rng.Row, 2)   ' Bereich
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 2) = .Cells(rng.Row, 3)   ' Anlieferdatum
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 3) = .Cells(rng.Row, 7)   ' Bestellung
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 4) = .Cells(rng.Row, 8)   ' Einkäufer
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 5) = .Cells(rng.Row, 11)  ' Fehlercode
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 6) = .Cells(rng.Row, 12)  ' Fehlercode
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 7) = .Cells(rng.Row, 32)  ' Status
Kleinclaim_Auswertung.ListBoxClaim.List(Kleinclaim_Auswertung.ListBoxClaim. _
ListCount - 1, 8) = .Cells(rng.Row, 19)  ' Datum erledigt