Office: Filter funktioniert nicht

Hi,

ich habe ein Problem. Ich möchte eine Tabelle per Button automatisch filtern. dazu nutze ich bei Buttonclick folgendes:

Code:

 

Moin!
Ist ein bekannter "Bug"!
Der Makrorekorder liegt fast immer falsch, wenn er einen String aufzeichnet.
Ungetestete Lösung:
Übergib den String in englischer Schreibweise:
">=2017/08/01"
Wenn dies nicht klappen sollte, probiere dies:
">=" & Dateserial(2017, 8, 1)

Gruß Ralf

 

Hallo,

das Datum muss als Zahl rein, nicht als Text!

Schau mal z.B. hier: http://www.makro-excel.de/2015/12/27...datum-filtern/

Evtl. könnte auch eine Umwandlung des Datumstrings mit CDate funktionieren.

 

Gerade getestet:
Der englische Datum-String wird korrekt erkannt.

Überm Tellerrand (falsch aufgezeichneter String):
Eine Datenüberprüfung, Liste, Quelle kann ich ja per a;b;c einrichten.
Der Rekorder zeichnet auf:
Formula1:="a;b;c"

Dies ist zwar lauffähig, liefert aber das falsche Ergebnis!
Tausche ich das Trennzeichen ins englische Komma, löppt dat:
Formula1:="a,b,c"


Gruß Ralf

 

Danke für eure schnellen Antworten.

Leider läuft es bei mir noch immer nicht... Wenn ich den ersten Tipp ausprobiere, bekommen ich folgende Meldung:

"Laufzeutfehler 1004 - Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt werden."

Ich möchte ja Spalte nach Spalte "AJ" ab Zeile 2 - Ende der Tabelle.

Hmmm *frown.gif*

 

Hmmmmmmmmmmmmm
Blattschutz?
(denn meine Methode(n) funktionieren einwandfrei)

Gruß Ralf

 

Code:

 

Also nochmal genauer beschrieben und etwas anders als zuvor erwähnt.

Ich möchte jetzt zwei ComboBoxen haben. ComboBox1 = Monat und ComboBox2 = Jahr.

Der Zeitraum der gefiltert wird soll immer gleich sein. Heißt wenn ich Januar und 2017 auswähle, möchte ich nun den Bereich (Gleich und mehr) 25. Dezember 2016 bis (Gleich und weniger) 24. Januar 2017.

Fortlaufend dann wenn ich Februar und 2017 auswähle soll dann vom 25. Januar 2017 - 24. Februar 2017 gefiltert werden.

Kann mir da nochmal jemand zur Seite stehen ? Das würde mich sehr freuen :-/

 

Soll ich mir/Dir jetzt was basteln oder trittst Du in Vorleistung?

Fragt sich Ralf

 

Also ein Ansatz wie man das realisieren könnte wäre cool. Ansonsten möchte ich hier natürlich keine Arbeit verlangen. Wenn dies zu aufwendig ist, muss ich mich damit dann leider zufrieden geben.

Trotzdem danke ich euch *Smilie

 

Hier mal ein Vorschlag:
Datum1 = Dateserial(CInt(Combobox2), CInt(Combobox1)-1, 25)
Datum2 = Dateserial(CInt(Combobox2), CInt(Combobox1), 24)

 

Danke Dir *Smilie

Damit bin ich allerdings grade überfordert.. Was bewirkt Dateserial(CInt(Combobox2), CInt(Combobox1)-1, 25) und wie kann ich das noch anpassen ?

 

Wenn ich das nun so ersetze, kommt als Fehlermeldung:

Typen unverträglich

:-/

 

Das Typen unverträglich kommt auf wenn ich

Datum1 = TextBox1.Value
Datum2 = TextBox2.Value

verwende...

 

Moin noch mal!
Du hast keine Ahnung, was nicht tragisch ist, denn alle fangen mal an.
Ich schrieb Dir ja oben bereits, dass Du in Vorleistung treten musst, damit Dir überhaupt geholfen werden kann.
Damit meinte ich den derzeitigen Stand Deiner Mappe, die Du als Exceldatei unter Erweitert, Anhänge verwalten hochladen solltest.

Gruß Ralf