---

Hallo Excelianer,

zum schnellen Filtern habe ich mir ein Makro erstellt, so dass ich per Doppelklick auf eine Zelle des Datenbereichs ( ab Zeile 9 ) nur noch gleichartige bzw. ähnliche Zeilen angezeigt bekomme. Das funktioniert perfekt für Textzellen und Datumszellen. Dabei können sogar Filter kombiniert werden und sie lassen sich durch Doppelklick auf die Überschrift auch wieder einzeln deaktivieren. So weit, so gut :-)

Bei den Zahlen habe ich zwei Probleme:
1.) Ich muss nach Doppelkick auf z. B. "2,00 €" manuell in den Filter gehen und erst dann wird das gewünschte Ergebnis angezeigt.
2.) Nach Doppelklick auf "2,02 €" werden die Grenzen ohne Dezimaltrennzeichen in den Filter übernommen. Dann hilft es auch nicht, in den Filter zu gehen :-(

Wie kommt das und wie kann ich das beheben?

Eine Beispieldatei habe ich hier hochgeladen:
http://www.uploadagent.de/show-196075-1408213268.html

Freundliche Grüße

Thomas

------------------
Freundliche Grüße
Thomas Schütte

[Diese Nachricht wurde von tschütte am 16. Aug. 2014 editiert.]

[Diese Nachricht wurde von tschütte am 02. Jan. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Aktuelle Datei
Sorry, ich hatte eine alte Version hochgeladen.
Diese hier ist aktuell:
http://www.uploadagent.de/show-196075-1408213268.html

Ist jetzt oben auch aktuell

[Diese Nachricht wurde von tschütte am 16. Aug. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ja, da schlägt das deutsche Zahlenformat wieder zu, das sich vom Format der VBA-Standardsprache, Englisch/USA abweicht  

Bei Zahlen führt das Dezimal-Komma dazu, daß die gesuchte Zahl nicht gefunden und die ganze Liste ausgefiltert wird -
also tauschen wir das Komma gegen den Punkt:

Code:

---

    Case "Zahl"
        GrenzeMax = Application.WorksheetFunction.Max(Target.Value * (1 - Abweichung / 100), Target.Value * (1 + Abweichung / 100))
        GrenzeMin = Application.WorksheetFunction.Min(Target.Value * (1 - Abweichung / 100), Target.Value * (1 + Abweichung / 100))
        ActiveSheet.Range(Cells(8, 1), Cells(LR, LC)).AutoFilter Field:=Target.Column, _
        Criteria1:=">=" & Application.Substitute(GrenzeMin, ",", "."), Operator:=xlAnd, _
        Criteria2:="<=" & Application.Substitute(GrenzeMax, ",", ".")

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas Harmening,

vielen herzlichen Dank. Das passt 100%ig :-)
Ein Problem mit , und . hatte ich selber auch vermutet und diverse Umformatierungen ausprobiert, aber keine davon hat funktioniert.
Verwirrend ist dabei, dass der Punkt nirgends sichtbar wird - nur intern ist er wohl präsent gewesen. R.I.P :-)

Nochmals danke und schönes Rest-Wochenende

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP