Filtern nach mehreren Kriterien

[fred-neumann]

Guten Tag,
ich habe x Varianten gesucht und keinen Treffer für folgendes Problem in meinem Endlosformular gefunden;
Das untere VBA
filtert nach dem Wert aus Feld "suche1" in dem Feld "Treffer1" und
filtert nach dem Wert aus Feld "suche2" in dem Feld "Treffer2"

Code [Auswählen] Erweitern

Me.Filter = "[Treffer1] = '" & suche1 & "' And [Treffer2] = '" & suche2 & "'"
    Me.FilterOn = True
Klappt!
Es sind alles Festkommazahlen.
Mein Problem:
Ich möchte aus den "Suchvorgaben",- also Felder [suche1], [suche2] nicht den absoluten gleichen Wert gefilter bekommen, sondern in jeden der Felder (suche1, suche2) soll eine Toleranz von 0,5 mit einfließen.
Beispiel: suche1 hat den Wert von 1,9 dann soll dieses filterkriterium Werte zwischen 1,4 und 2,4 in Feld [Treffer1] ausgeben. -- Das selbe in suche2/Treffer2
Kann mir bitte jemand die Ergänzung für das obere VBA schreiben?

[MaggieMay]

Hi,

Es sind alles Festkommazahlen.

dann wundert es mich, dass du sie wie Texte behandelst.

Im Prinzip ginge das so:

Code [Auswählen] Erweitern

Me.Filter = "[Treffer1] Between '" & suche1 - 0.5 & "' And '" [color=red]& [/color]suche1 + 0.5 & "' And [Treffer2] Between '" & suche2 - 0.5 & "' And '" [color=red]& [/color]suche2 + 0.5 & "'"

Edit: fehlende Verkettungszeichen ergänzt.

[fred-neumann]

Guten Tag MaggieMay,
danke für deine Aufmerksamkeit & Mühe!
mir kam`s auch seltsam vor,- in Gänsefüßchen deutet auf Text hin und so weiter ...
ich habe von vba sehr wenig Ahnung ... aber es klappt.
Dein Code nimmt er nicht an,- meldet "Erwartet: Anweisungsende" und hinterlegt farbig "suche1" im Code,-   was ist gemeint?

[fred-neumann]

naja, wenigstens das bekomme ich hin
korrekt:

Code [Auswählen] Erweitern

Me.Filter = "[Treffer1] Between '" & suche1 - 0.5 & "' And '" & suche1 + 0.5 & "' And [Treffer2] Between '" & suche2 - 0.5 & "' And '" & suche2 + 0.5 & "'"
danke MaggieMay