AutoFilter Criteria

Hallo Zusammen,
ich bearbeite folgenden Code:
With WsS
If .AutoFilterMode Then .AutoFilterMode = False
Set Daten = .Range(.Cells(2, 1), .Cells(.Rows.Count, 15).End(xlUp))
With Daten
.AutoFilter Field:=3, Criteria1:=a
.AutoFilter Field:=5, Criteria1:=b
.AutoFilter Field:=10, Criteria1:=c
.AutoFilter Field:=15, Criteria1:="500", Operator:=xlBottom10Items
End With
End With
Beim AutoFilter Field 15 möchte ich mir mir die Spalte vom kleinsten zum größten Anzeigen lassen.
Ich habe eine Arbeitsmappe mit 20.000Zeilen.
Wenn ich den Code oben anwende, werden mir die 7 höchsten angezeigt.
Wenn ich Criteria"500" auf 10000 erhöhen will, kommt immer eine Fehlermeldung, dass der Wert zwischen 1 und 500liegen muss.
Ich verstehe nicht ganz, warum ich für diesen Filter überhaupt ein Criteria brauche bzw. wie kann ich das Problem lösen, dass nur die Annordnung vom kleinsten zum größten angezeigt wird´?
Vielen DAnk für eure Hilfe
Tyroler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet Dim Daten As Range With Ws Set Daten = .Range("A1:C29") If .AutoFilterMode Then .AutoFilterMode = False Daten.AutoFilter field:=1, Criteria1:="b" With .AutoFilter .Sort.SortFields.Clear .Sort.SortFields.Add _ Key:=Daten.Columns(3), _ SortOn:=xlSortOnValues, _ Order:=xlAscending, _ DataOption:=xlSortNormal .Sort.Apply End With End With End Sub

Hallo Michael,
vielen Dank für die rasche Antwort.
So ganz verstehe ich es noch nicht ganz.
Ich habe aber mehrere Filter die in der Tabelle angewendet werden.
Hier nochmals mehr von meinem Code:
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsR As Worksheet: Set WsR = Wb.Worksheets("Tabelle1")
Dim WsS As Worksheet: Set WsS = Wb.Worksheets("Tabelle2")
Dim WsT As Worksheet: Set WsT = Wb.Worksheets("Tabelle3")
Dim WsX As Worksheet: Set WsX = Wb.Worksheets("Tabelle4")
Dim Daten As Range
Dim a As Integer
Dim b As Integer
Dim c As String
a = Worksheets("Tabelle1").Range("C5").Value
b = Worksheets("Tabelle1").Range("C6").Value
c = Worksheets("Tabelle1").Range("C7").Value
With WsS
If .AutoFilterMode Then .AutoFilterMode = False
Set Daten = .Range(.Cells(2, 1), .Cells(.Rows.Count, 15).End(xlUp))
With Daten
.AutoFilter Field:=3, Criteria1:=a
.AutoFilter Field:=5, Criteria1:=b
.AutoFilter Field:=10, Criteria1:=c
.AutoFilter Field:=15, Criteria1:="500", Operator:=xlBottom10Items
End With
End With
In Spalte 15 soll nun die Reihenfolge vom kleinsten zum größten erfolgen.
Dankeschön
Grüße
Johannes

With WsS If .AutoFilterMode Then .AutoFilterMode = False Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 15).End(xlUp)) With Daten .AutoFilter Field:=3, Criteria1:=a .AutoFilter Field:=5, Criteria1:=b .AutoFilter Field:=10, Criteria1:=c End With With .AutoFilter .Sort.SortFields.Clear .Sort.SortFields.Add _ Key:=Daten.Columns(15), _ SortOn:=xlSortOnValues, _ Order:=xlAscending, _ DataOption:=xlSortNormal .Sort.Apply End With End With

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread