In diesem Beispiel wird die Datenbank "Database" basierend auf dem Kriterienbereich "Criteria" gefiltert.
Range("Database").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("Criteria")