Werte 0 bis 0,99 mit Autowert filtern

Hallo,

ich möchte die Werte 0 bis 0,99 mit den Autofiltern ausschliessen ( die Minus Werte müssen angezeigt werden)

mit ActiveSheet.Range("A1:R8").AutoFilter Field:=7, Criteria1:=(">0.0*") leider funktioniert nicht

mit ActiveSheet.Range("$A$1:$R$8").AutoFilter Field:=7, Criteria1:=">=1", _
Operator:=xlAnd, Criteria2:="=100000"
es funktioniert aber werden die Minus Werte auch ausgeschlossen

kann mir jemand helfen

Vielen Dank
Giuppy