Tabel selecteer alles boven 0 laten zien

[Tegno]

Sub zoom_GebruikteMaterialen()
ActiveSheet.ListObjects("Tabel138").Range.AutoFilter Field:=6, Criteria1:= _
Array("=>0"), Operator:=xlFilterValues
End Sub

Deze formule werkt niet hier geeft hij helemaal geen regels als resultaat
Ik wil de selectie in Tabel138 aanzetten voor de regels met een waarde hoger dan 0 in veld6 (dus eigenlijk de 0 waarde verbergen)

 

[Mde]

je zegt hier

Array("=>0")

gelijk en groter als 0 als je de = weghaalt doet hij het waarschijnlijk wel

 

[snb]

zonder array:

Sub zoom_GebruikteMaterialen()
   ActiveSheet.ListObjects("Tabel138").databodyRange.AutoFilter 6, ">0"
End Sub

Werp een blik:

https://www.snb-vba.eu/VBA_Autofilter.html#L_3.2

 

[Tegno]

zonder array:

Sub zoom_GebruikteMaterialen()
   ActiveSheet.ListObjects("Tabel138").databodyRange.AutoFilter 6, ">0"
End Sub

dank je snb

Dit werkt wel

Werp een blik:

https://www.snb-vba.eu/VBA_Autofilter.html#L_3.2

 

[snb]

Gebruik de juiste knop om te reageren. Stop zinloos citeren.