Filter in macro werkt niet

[kabebanaan]

Hallo,

Ik heb een vreemd geval waar ik maar niet uitkom. (Frustrerend )

Ik heb een kolom met daarin de waarden "Waar" en "Onwaar".
Wanneer is de macrorecorder start en in deze kolom Autofilter op de waarde "Waar", dan wordt het filter niet uitgevoerd. Filter ik handmatig, dan werkt het filter wel.
Indien ik filter op een andere kolom, dan werkt het filteren weer wel via de macro.

Het zal wel iets simpels zijn dat ik over het hoofd zie, maar ik zie 't niet.

Ik heb een bestand toegevoegd als voorbeeld.
Als je de macro laat uitvoeren, zal het filter niet werken. Geef je daarna het filter handmatig aan, dan wel.

 

[Demeter]

Probeer het eens met een Range!

Range("B2").Select

inplaats van cells.select.

Groet,
Ferenc

 

[kabebanaan]

Geeft hetzelfde probleem.

 

[Wigi]

Het heeft te maken met WAAR en ONWAAR.

Je kan het oplossen door voor WAAR een ' te zetten.

Dit is de code:

Sub Filteren()
    Range("A2:B15").AutoFilter Field:=2, Criteria1:="WAAR"
End Sub

Wigi

 

[kabebanaan]

Inderdaad, dan werkt 't wel.
Kan er een formule inzetten met "tekst samenvoegen" zodat er een ' voor komt.

Bedankt voor de tip !