Office: (Office 2010) Autofilter automatisch aktualisieren

Hallo zusammen,

ich habe eine Planungstabelle, aus der ich über ein Datum B1 mir die jeweiligen Ansichten anzeigen lasse. Bei der Ansicht interessieren aber nur die Werte über Null. Ich arbeite jetzt mit dem Autofilter im Feld K2. Dieser wird aber nicht automatisch aktualisiert, so muss ich immer in den Filter gehen, alle anzeigen lassen und die Nullwerte dann rausnehmen.
Ich habe zwar schon diverse Beiträge gelesen, die eine Lösung über VBA erreichen, jedoch kann ich diese nicht auf meine Tabelle anwenden. Da ich nicht die große Projekttabelle hier reinstellen kann, habe ich nur ein Screenshot erstellt, vielleicht reicht es ja schon mein Problem zu veranschaulichen.



Vielen Dank!
Gruß
Berthold

:)

 

eigentlich ganz einfach. setze auf dein ereignis (im beispiel hier ist es das ändern der zelle b1) hin die codezeile ActiveSheet.AutoFilter.ApplyFilter
ein. dann sollte der autofilter auf der aktuellen tabelle aktualisiert werden.

Code:

nochwas. dein screenshot sieht brutalst scheisse aus. die jpeg-kompression hat ihn total verstümmelt. das ist zwar nur ne kleinigkeit aber vielleicht kannst du beim nächsten screenshot beim kompressionsregler im speichern-dialog zum jpeg-format auf anschlag "qualität" anstatt "grösse" stellen, oder besser als dateiformat gif oder auch png verwenden. diese formate enthalten zwar weniger farbinformationen sind aber dafür verlustfrei in der darstellung.

 

Hallo rushifell,

sorry für den scrennshot, bin hier auch eher für eine Beispieldatei. Aber die Orginalgröße wurde leider nicht akzeptiert, so habe ich die Bilddatei komprimiert, war wohl etwas zuviel.
Jetzt habe ich dein script ein die vp-maske eingefügt ( bin hier leider unerfahren ) und neu aufgerufen. Leider ohne positives Ergebnis, der Filter wird nicht aktualiesiert. Fehlt mir hier noch ein Pukt?

Danke
Berthold

 

Mappe3.xlsm
hier meine beispieldatei

wenn du grössere dateien bereitstellen willst, komprimiere sie und lade sie bei irgendeinem filehoster hoch. das wird zwar hier nicht gerne gesehen aber als ausnahme könnte das durchgehen. wenn dich jemand anmotzt, nimm mich als schild.

 

Hallo,

jetzt habe ich doch eine Möglichkeit gefunden, eine Beispieldatei zu erzeugen. Ich muss ja nicht die ganze Projekttabelle hier reinstellen, sondern nur die Anzeige, die gefiltert werden muss.
Der Filter ist in K3 und soll immer die Nullwerte ausblenden. Die Anzeige wird über die Datumsauswahl B2 geändert (hier ist nur der Wert 25.11.13 zu sehen)
Ich hoffe es wird dadurch anschaulicher.

Gruß
Berthold

 

Hallo bluemaxy,

Warum nicht? Ohne VBA wird das wohl kaum gehen.

Mit VBA im Worksheet so: Code:

 

Hallo Hasso,
vielen Dank für dein Beispiel, auf das Erstellen eines Makros bin ich nicht gekommen *Smilie

Hat geklappt!

Vielen Dank und schöne Grüße

Berthold