Hallo,
ich versuche Daten mit dem AutoFilter nach und nach zu filtern und die angezeigten Datensätze zu durchlaufen. Allerdings durchlaufe ich nicht nur die gefilterten Datensätze, sondern alle. Der Code lautet wie folgt
For j = 0 To UBound(Equitys, 1) - 1
Application.Workbooks(Index & " rec.xls").Sheets("Tabelle1").Activate
Selection.AutoFilter Field:=1, Criteria1:=Equitys(j)
Set Region = Range("A1").CurrentRegion
Set Datenbereich2 = Intersect(Region, Region.SpecialCells(xlCellTypeVisible))
Equity = Datenbereich2.Cells(2,1)
Next j
Kann mir jemand dabei helfen? Ich hab das auch schon mal so ähnlich hin bekommen.
Vielen Dank
Dome