Kriterien des Spezialfilter

[maine-coon]

Hallo liebe Experten,

für meinen Spezialfilter funktioniert diese Vorgabe gut.

PHP-Code:

  Worksheets("Auswahl").Range("C2") = ">=51"
  Worksheets("Auswahl").Range("D2") = "<= 59" 


Aber jegliche Versuche das ">=51" abzuändern in ">=51 und <=53" scheitern.
Ich meine mal zu wissen, dass im Spezialfilter in gleicher Zeile eine UND Abfrage
und mit einer Zeile da drunter eine ODER Abfrage wird.

PHP-Code:

Hier mein Spezialfilter
Worksheets("Entfernungen").Range("A19:S519").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Worksheets("Auswahl").Range("A1:S3"), CopytoRange:=Worksheets("Auswahl").Range("A3"), Unique:=False

With Worksheets("Auswahl")
    ListBox1.RowSource = "Auswahl!" & .Range(.Cells(4, 1), .Cells(n, 19)).Address
End With 


Ich hoffe, dass ich mein Anliegen gut verständlich beschrieben habe.

[Kuwer]

Hallo Achim,

Ich hoffe, dass ich mein Anliegen gut verständlich beschrieben habe.

ich denke schon. Aber was erwartest Du jetzt, wenn Du die zugehörige Beispieldatei nicht mitlieferst?
Das Einzige, was mir nicht gefällt ist, dass Du CopyToRange direkt unter oder gar direkt in den CriteriaRange setzt. Aber ob das die Ursache ist?

Gruß, Uwe

[snb]

Aber jegliche Versuche das ">=51" abzuändern in ">=51 und <=53" scheitern.

Jede Bedingung braucht eine Zelle.

[Ego]

Hallo Achim,

der erweiterte Filter erkennt an der Überschrift in der Kriterienliste für welche Spalte der Filterliste die Bedingung angewandt werden soll. Du must nicht alle Überschriften der Filterliste in der Kriterienliste aufführen.
Wenn du aber eine UND-Bedigung für eine Spalte haben möchtest, must du in der Kriterienliste zwei Spalten mit der Überschrift der entsprechenden Spalte der Filterliste eintragen, da, wie snb geschrieben hat, jede Bedingung eine eigene Zelle (bei UND Spalte) benötigt.

[maine-coon]

Ohne es zu wissen, habe ich es genauso mal probiert. Und ich war ganz platt, dass es funktionierte.

Danke für den Tipp.