Autofilter

Im folgenden Beispiel soll via Autofilter im Bereich A1:B10 gefiltert werden, wenn in der Spalte B der Wert > 0 ist. Der Bereich und die Bedingung kann an die Erfordernisse angepasst werden.

Sub Autofilter()

    If ActiveSheet.AutoFilterMode Then
         ActiveSheet.AutoFilterMode = False
    End If
    
    With Tabelle1
        .Range("A1:B10").AutoFilter Field:=2, Criteria1:=">0", Operator:=xlFilterValues
    End With
    
End Sub