[VB] AutoFilter instellen en uitvoeren

[Vozze]

In een werkblad in Excel die ik heb zijn een aantal AutoFilters opgenomen. Met een VB programma wil ik de filter die in kolom A staat gebruiken. Hoe kan ik de condities bepalen en de filter laten uitvoeren. Ik heb het volgende:

code:

Dim aFilter
Dim FilterColumn
Set aFilter = WB.ActiveSheet.AutoFilter
Set FilterColumn = aFilter.Filters(1)
FilterColumn.Criteria.Add "81"

Helaas stopt hij bij de laatste regel. Wie kan me verder helpen?

[ Voor 3% gewijzigd door Vozze op 02-12-2004 13:32 ]

[mulder]

Define "Helaas stopt hij bij de laatste regel", krijg je een error?

[Vozze]

Don Facundo schreef op donderdag 02 december 2004 @ 13:38:
Define "Helaas stopt hij bij de laatste regel", krijg je een error?

Ja, de volgende

code:

Object doesn't support this property or method

[mulder]

Het filter object heeft geen Criteria property. Je kunt in Excel op ALT+F11 drukken dan krijg je de VBA editor, in de help kun je de VBA reference vinden waar meer staat uitgelegd over dit object.