Automatische Filteraktualisierung

[Thomas_Ramel]

Grüezi Mona

das hatte ich schon probiert, zuerst auf die Festplatte zu
speichern.
Möglichweise liegt es daran, dass ich hier noch Excel 2003 auf
dem Computer hab?

Nein, das sollte eigentlich keine Rolle spielen - ich habe deine Mappe genommen und nur ein wenig angepasst, alles andere ist geblieben wie es ist.

Mit der Hilfe von Alibaba hab ichs jetzt wenigstens schon mal
hinbekommen, dass eine Spalte gefilert wird. Allerdings klappt
das mit der UND/ODER-Funktion nicht, um die Kreuzchenvariante
zu realisieren, bei der je nach Eingabe im ersten
Tabellenblatt unterschiedliche Spalten gefiltert werden
sollen. Hast du ne Idee dazu?

Ich kann keine der Mappen von AliBaba herunterladen, da sie alle bereits nicht mehr auf dem Server liegen, das macht die Sache auch nicht einfacher.

Daher sollte die Mappe wohl sauber neu aufgebaut werden - beim vielen ‚Rummachen‘ geht da schon mal was kaputt, was die Funktion dann erheblich beeinträchtigt und irreparabel ist.

Du musst dich aber entscheiden in welche Richtung Du gehen willst:

Mit den Kreuzchen für jede Gruppe musst Du künftig alles wieder anpassen, wenn eine neue Gruppe dazukommt.

Wenn Du die Zuordnungen wie vorgeschlagen alle in einer Spalte aufführst kann nach Belieben erweitert werden, wenn es neue Kombinationen geben soll.

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[MonaH]

Hallo Thomas,

an den Kostenstellen wird sich vermutlich nicht so oft was ändern, dennoch würde ich mir den Vorschlag mit dem Kombinationen natürlich gerne mal anschauen. Habs grad nochmals probiert. MIr stürzt das ganze Programm ab, wenn ich versuch deinen Link zu öffnen. Vielleicht liegts auch an dem Programm. Hast du die Excel noch?! Vielleicht könntest du sie mir durch ne andere Upload Seite zukommen lassen.

Grüße Mona

[Thomas_Ramel]

Grüezi Mona nochmals

Mit der Hilfe von Alibaba hab ichs jetzt wenigstens schon mal
hinbekommen, dass eine Spalte gefilert wird. Allerdings klappt
das mit der UND/ODER-Funktion nicht, um die Kreuzchenvariante
zu realisieren, bei der je nach Eingabe im ersten
Tabellenblatt unterschiedliche Spalten gefiltert werden
sollen. Hast du ne Idee dazu?

Ich habe das Ganze nun nochmal sauber neu aufgebaut und auch mit der Kreuzchen-Variante versehen.

Die Spaltenüberschriften für die Kreuzchen müssen exakt den Werten entsprechen, die Du im ersten Blatt auswählst.
Neue Spalten für neue Gruppen kannst Du jetzt auch einfügen ohne dass der Code darunter leidet.

Die Formel die ich verwende liegt wieder verborgen hinter dem Button im Blatt mit den Daten.

http://users.quick-line.ch/ramel/Demo-Daten/tr_Filte…

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[Thomas_Ramel]

Grüezi Mona

an den Kostenstellen wird sich vermutlich nicht so oft was
ändern, dennoch würde ich mir den Vorschlag mit dem
Kombinationen natürlich gerne mal anschauen. Habs grad
nochmals probiert. MIr stürzt das ganze Programm ab, wenn ich
versuch deinen Link zu öffnen. Vielleicht liegts auch an dem
Programm. Hast du die Excel noch?! Vielleicht könntest du sie
mir durch ne andere Upload Seite zukommen lassen.

Ich habe gerade nochmal eine Datei komplett neu erstellt und hier hochgeladen - besser als auf meinem eigenen WebSpace wird das nirgens werden, fürchte ich…

http://users.quick-line.ch/ramel/Demo-Daten/tr_Filte…

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[MonaH]

Hallo Thomas

Ich bekomm jedes Fall folgende Fehlermeldung:
Nicht lesbare Inhalte in der Datei gefunden. Möchte Sie die Inhalte der Arbeitsmappe wieder herstellen?

Wenn ich dann ja klicke kommt, dass die Inhalte nicht wieder hergestellt werden können.

Kannst du es mir über folgendes Programm schicken? Das hatte mit Step super geklappt. Und wenns an der Excel nicht liegen kann dann muss es doch das Programm sein, oder nicht?
http://www.file-upload.net/

[Thomas_Ramel]

Grüezi Mona

Ich bekomm jedes Fall folgende Fehlermeldung:
Nicht lesbare Inhalte in der Datei gefunden. Möchte Sie die
Inhalte der Arbeitsmappe wieder herstellen?

Wenn ich dann ja klicke kommt, dass die Inhalte nicht wieder
hergestellt werden können.

Das klingt wirklich eigenartig - ich hab nix verwendet was nicht in xl2003 vorhanden wäre…

Kannst du es mir über folgendes Programm schicken? Das hatte
mit Step super geklappt. Und wenns an der Excel nicht liegen
kann dann muss es doch das Programm sein, oder nicht?
http://www.file-upload.net/

Das kann ich gerne tun, verspreche mir davon aber keine Verbesserung:

http://www.file-upload.net/download-4004703/tr_Filte…

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[MonaH]

Hi Thomas,

danke für den Versuch. Hast aber recht, bringt nichts. Die Datei kann nicht gelesen werden kommt als Meldung.

Vielleicht liegts irgendwie an der Firewall im Büro. Versuchs heute Abend nochmals von zu Hause.
Ansonsten vielen Dank für deine Hilfe und schade, dass ich dein Vorschlag nicht anschauen kann. Dann hoffe ich, dass Step mir nochmals weiterhelfen kann.

Grüße Mona

[Reinhard_fb8cb7]

Hallo Mona,

Vielleicht liegts irgendwie an der Firewall im Büro. Versuchs
heute Abend nochmals von zu Hause.

ich konnte bislang von Links auf Thomas’ Webseite die Thomas hier zeigte alle mappen problemlos herunterladen.

Mir ist auch sehr unklar warum du die Mappen von Step auf fileupload
herunterladen konntest und die von Thomas nicht.
Bei mir ging das problemlos.

Gruß
Reinhard

[Thomas_Ramel]

Grüezi Mona

danke für den Versuch. Hast aber recht, bringt nichts. Die
Datei kann nicht gelesen werden kommt als Meldung.

Vielleicht liegts irgendwie an der Firewall im Büro.

Ja, das kann durchaus sein - dann coache ich dich anders durch…

Dein erstes Tabellenblatt kannst Du belassen wie es ist.

Im zweiten Tabellenblatt hast Du deine Daten, und da sollten 4 Spalten sein mit exakt den Bezeichnungen die Du im ersten Tabellenblatt im DropDown hast (10, 20, 30, 40) - in den Zellen A4:smiley:4. Ab E4 dann die Kostenarten und die einzelnen Monate.
In den Spalten A:smiley: setzt Du dann jeweils ein ‚x‘ wenn die betreffende Zeile in der betreffenden Kostenart angezeigt werden soll.

In A1 schreibst Du dann die folgende Formel:

=Anfangseinstellungen!$B$3

und in A2 einfach ein ‚x‘ (ohne die Hochkommas)
Alle andren Spalten der Zeilen 1 und 2 bleiben vollständig leer.

Das wars dann für die Vorbereitung der Tabellenblätter.

Kommen wir nun zum VBA-Code.
Klicke mit der rechten Maustaste auf den Reiter des zweiten Tabellenblattes und wähle ‚Code anzeigen‘ aus. In dieses leere Fenster des VBA-Editors kopierst Du nun 1:1 die folgenden Zeilen:

Option Explicit

Private Sub Worksheet\_Activate()
 Range("A4").CurrentRegion.AdvancedFilter \_
 Action:=xlFilterInPlace, \_
 CriteriaRange:=Range("A1:A2"), \_
 Unique:=False
End Sub

Verlasse nun den VBA-Editor wieder mit ALT+Q und speichere deine Mappe (damit die Anpassungen auch schön erhalten bleiben).

Wechsle nun auf das erste Tabellenblatt, wähle eine Kostenstelle aus und wechsle zurück zum zweiten Tabellenblatt.
Beim Wechsel wird er Filter mit der gewählten Kostenstelle ausgelöst und Du hast nur deine gewünschten Daten angezeigt.

(Die Spalten A:smiley: kannst Du auch noch ausblenden, wenn Du möchtest, genauso wie die Zeilen 1:3).

Ich hoffe, dass Du damit zurechtkommst, mehr ist auch in meiner Mappe nicht wirklich drin.

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[Thomas_Ramel]

Grüezi Reinhard

Mir ist auch sehr unklar warum du die Mappen von Step auf
fileupload
herunterladen konntest und die von Thomas nicht.
Bei mir ging das problemlos.

Danke für die ‚Ehrenrettung‘…

Mal sehen, vielleicht klappt es ja mit dem Coaching.

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[MonaH]

Hi Thomas,

danke für deine Anleitung. Wenn man die so liest hört es sich echt einfach an und durchaus machbar, dennoch… - leider funktioniert es bei mir nicht richtig . Es filtert immer alles aus, d.h. er erkennt die x nicht?!

Ich hab meine Datei mal nach deinen Vorgaben umgewandelt und hochgeladen
http://www.file-upload.net/download-4004910/Beispiel…

vielleicht kannst du ja auf meinen Link zugreifen und findest den Fehler.

Vielen vielen Dank für eure Geduld und Hilfsbereitschaft .

[MonaH]

hab grad festgestellt, dass es funktioniert wenn ich deine Vorgehensweise in meine richtige Datei von der Arbeit übertrag .

Suuuuuper, vielen vielen Dank. Juhu, das freut mich jetzt richtig. Und das noch vorm Wochenende (bei uns in BW ist morge Feiertag).

Der Spezialfilter kam hier jetzt aber nicht zur Anwendung, oder?

Auf jeden Fall herzlichen Dank an alle Helfer! Wenn ich mich irgendwie revanchieren kann…

[Thomas_Ramel]

Grüezi Mona

danke für deine Anleitung. Wenn man die so liest hört es sich
echt einfach an und durchaus machbar, dennoch… - leider
funktioniert es bei mir nicht richtig . Es filtert immer
alles aus, d.h. er erkennt die x nicht?!

Ich hab meine Datei mal nach deinen Vorgaben umgewandelt und
hochgeladen
http://www.file-upload.net/download-4004910/Beispiel…

vielleicht kannst du ja auf meinen Link zugreifen und findest
den Fehler.

Aber klar doch - warum hast Du die Berechnung in der Mappe auf ‚Manuell‘ eingestellt?
Damit kann die Formel in A1 nicht korrekt arbeiten und damit dann auch der Filter nicht.

Unter Extras/Optionen/Register ‚Berechnung‘/[x]Automatisch musst Du den Haken setzen.

Vielen vielen Dank für eure Geduld und Hilfsbereitschaft .

Aber gerne doch - es freut mich, wenn ich helfen kann.

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[Thomas_Ramel]

Grüzi Mona

hab grad festgestellt, dass es funktioniert wenn ich deine
Vorgehensweise in meine richtige Datei von der Arbeit übertrag

-D.

Wenn die Berechnungs-Opeionen auf ‚Automatisch‘ stehen klappt es auch mit deiner hochgeladenen Mappe, ich habe deinen anderen Beitrag gerade beantwortet.

Suuuuuper, vielen vielen Dank. Juhu, das freut mich jetzt
richtig. Und das noch vorm Wochenende (bei uns in BW ist morge
Feiertag).

Der Spezialfilter kam hier jetzt aber nicht zur Anwendung,
oder?

Doch, das ist (auch) der Spezialfilter, aber in einer minimal anderen Variation

PS:
Was kannst Du als Revanche denn so anbieten…?

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[MonaH]

Hi Step,

hab deine Datei gerade bekommen - leider kann ich sie mir erst am Montag genauer anschauen. Bei mir zuhause laufen die Makros nicht (liegt an meinem Excel) und morgen bin ich nicht im Büro.

Aber schon mal herzlichen Dank für deine Hilfe.

Thomas hat mir auch schon ne Variante geschickt, mit der es funktioniert. Jetzt muss ich nur noch schauen, welche besser in die Datei passt, die sehr groß ist und noch andere Funktionen erfüllen muss, z.B. automatisches Einstellen weiterer Tabellenblätter.

Aber super auf jeden Fall, dass ihr mir so schnell geholfen habt. Ich wär da ewig dran gesessen und häts am Ende doch nicht hinbekommen.

Grüße Mona

[MonaH]

Hi Thomas,

die manuelle Einstellung benötigte ich im Büro. Wir haben ein Planungssystem dass riesige Berechnungen im Hintergrund läufen lässt und durch die manuelle Einstellung wird die Performance besser. Hab ich mich mittlerweile aber schon dran gewöhnt .

Revanche, keine Ahnung .
Bin Betriebswirtin, wir können essentiell nichts in der Tiefe .

Grüße Mona

[Thomas_Ramel]

Grüezi Mona

die manuelle Einstellung benötigte ich im Büro. Wir haben ein
Planungssystem dass riesige Berechnungen im Hintergrund läufen
lässt und durch die manuelle Einstellung wird die Performance
besser. Hab ich mich mittlerweile aber schon dran gewöhnt .

OK, dann muss sie für diese Datei/Funktion auf Automatsich stehen - oder noch schlauer, wir machen das gleich per VBA-Code.

Ersetze den Code in der Mappe im Tabellenblatt ‚Daten‘ durch den folgenden:

Private Sub Worksheet\_Activate()
 Me.Calculate
 Range("A4").CurrentRegion.AdvancedFilter \_
 Action:=xlFilterInPlace, \_
 CriteriaRange:=Range("A1:A2"), \_
 Unique:=False
End Sub

Nun wird als erstes die Formel neu berechnet und dann gefiltert - so bist Du unabhängig von der Einstellung der Berechungsart.

Revanche, keine Ahnung .
Bin Betriebswirtin, wir können essentiell nichts in der Tiefe

-P.

Hmmm, klingt ‚Wirt‘ nicht nach ‚Kochen‘…?
…da ich am anderen Ende der Nahrungskette meinen Platz gefunden habe sollte sich doch da was machen lassen…

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[Reinhard_fb8cb7]

Hallo Mona, grüezie Thomas,

http://www.file-upload.net/download-4004910/Beispiel…

Aber klar doch - warum hast Du die Berechnung in der Mappe auf
‚Manuell‘ eingestellt?

Damit kann die Formel in A1 nicht korrekt arbeiten und damit
dann auch der Filter nicht.

nur mal so als Info.
Jetzt mal bezogen auf eine Mappe die ihr BEIDE habt, also den o.g. Link in diesem Beitrag )

Öffne ich die xls in XL 2000 so ist in der Tat die Berechnung auf manuell gestellt.
Öffne ich sie in XL 2007 so ist die Berechnung auf automatisch gestellt.

In XL 2007 funktioniert die Filterung anscheinend so wie von Thomas geplant.

In XL 2000 funktioniert sie in keinster Weise
Egal ob Berechnung auf manuell oder automatisch, Zeile 4 steht einsam da rum, keine Datenzeilen unter ihr, egal was ich in der Gültigkeitsliste ausgewählt habe.

In XL 2000 hat es dann funktioniert als ich klassisch filterte, also mit kompletter Titelzeile in A1:Q1 und in A2:smiley:2 manuell die Xse setzte.

Fazit daraus, XL 2000 funktioniert
 wenn A1 leer ist und in A2 deine listige Formel
es funktioniert nicht
 wenn in A1 über Formel z.B. 20 steht und in A2 fest ein x.

K.A. wie das in Xl 2002, XL 2003 funktioniert oder auch nicht.

Gruß
Reinhard

[Reinhard_fb8cb7]

Grüezi Thomas,

die manuelle Einstellung benötigte ich im Büro. Wir haben ein
Planungssystem dass riesige Berechnungen im Hintergrund läufen
lässt und durch die manuelle Einstellung wird die Performance
besser. Hab ich mich mittlerweile aber schon dran gewöhnt .

OK, dann muss sie für diese Datei/Funktion auf Automatsich
stehen - oder noch schlauer, wir machen das gleich per
VBA-Code.

gute Idee.
Aber ich deute die Schilderung so daß da irgendein Planungssytemprogramm da gewaltige Ressourcen des PCs belegt und Excel
kriegt nur wenig ab.
Und Mona hat da ggfs. viele Formeln im Blatt Daten.
Dann dauert die automatische Neuberechnung natürlich und es macht Sinn auf manuell zu stellen und vor der Mittagspause neu berechnen lassen

Me.Calculate ist da m.E. sehr kontraproduktiv. Ich fänd es besser
A1 im Code mit dem Wert aus der Gültigkeitslistenauswahl zu füllen.

Die Gültigkeitsliste sollte man so erweitern:

Alle/keiner
10
20
30
40

Wird das erste gewählt werden per Vba alle Datensätze angezeigt.

Ich kam auf letzteres da ich bislang wohl den Spezialfilter nur anders eingesetzt hatte und nicht am gleichen Ort gefiltert hatte.
Deshalb war ich sehr verblüfft, daß es nicht funktionierte, weder in 2000, noch 2007, die Zeilen des gesamten Listenbereiches zu markieren, dann Rechtsklick und auf „Eiblenden“ klicken.
Da tat sich mal gar nix.

Ich mußte, jetzt in 2007, den Listenbereich markieren, dann oben in „Daten“ oder sonstwo gehen und dann „Löschen“ auswählen.
Sowas ist doch absolut unnötig wenn sowieso schon Vba benutzt wird *find*
Oder gibt es da einen schnelleren Weg die ausgeblendeten Zeilen wieder einzublenden?

Revanche, keine Ahnung .
Bin Betriebswirtin, wir können essentiell nichts in der Tiefe

-P.

Hmmm, klingt ‚Wirt‘ nicht nach ‚Kochen‘…?
…da ich am anderen Ende der Nahrungskette meinen Platz
gefunden habe sollte sich doch da was machen lassen…

Du scheinst ausgehungert zu sein *lächel*
Aber, bist du sehr sicher daß mit „Ende der nahrungskette“ die Nahrungsaufnahme durch Essen gemeint ist, ich nicht.
Das Ende der Nahrungskette versprühen z.B. Bauern auf ihren Feldern

Gruß
Reinhard

[Thomas_Ramel]

Grüezi Reinhard

die manuelle Einstellung benötigte ich im Büro. Wir haben ein
Planungssystem dass riesige Berechnungen im Hintergrund läufen
lässt und durch die manuelle Einstellung wird die Performance
besser. Hab ich mich mittlerweile aber schon dran gewöhnt .

OK, dann muss sie für diese Datei/Funktion auf Automatsich
stehen - oder noch schlauer, wir machen das gleich per
VBA-Code.

gute Idee.
Aber ich deute die Schilderung so daß da irgendein
Planungssytemprogramm da gewaltige Ressourcen des PCs belegt
und Excel kriegt nur wenig ab.
Und Mona hat da ggfs. viele Formeln im Blatt Daten.
Dann dauert die automatische Neuberechnung natürlich und es
macht Sinn auf manuell zu stellen und vor der Mittagspause neu
berechnen lassen

Me.Calculate ist da m.E. sehr kontraproduktiv. Ich fänd es
besser
A1 im Code mit dem Wert aus der Gültigkeitslistenauswahl zu
füllen.

Das Me.Calculate soll kontraproduktiv sein - wieso denn das?
Damit wird nur das Tabellenblatt selbst neu berechnet, hier sogar nur die eine Formel die es enthält.

Die Gültigkeitsliste sollte man so erweitern:

Alle/keiner
10
20
30
40

Wird das erste gewählt werden per Vba alle Datensätze
angezeigt.

Ich kam auf letzteres da ich bislang wohl den Spezialfilter
nur anders eingesetzt hatte und nicht am gleichen Ort
gefiltert hatte.
Deshalb war ich sehr verblüfft, daß es nicht funktionierte,
weder in 2000, noch 2007, die Zeilen des gesamten
Listenbereiches zu markieren, dann Rechtsklick und auf
„Eiblenden“ klicken.
Da tat sich mal gar nix.

Einen Filter hebt man auch nicht mit ‚alle einblenden‘ auf…

Ich mußte, jetzt in 2007, den Listenbereich markieren, dann
oben in „Daten“ oder sonstwo gehen und dann „Löschen“
auswählen.

Ja, bis xl2007 hiess das ‚Alle anzeigen‘ im Menü Daten/Filter

Sowas ist doch absolut unnötig wenn sowieso schon Vba benutzt
wird *find*
Oder gibt es da einen schnelleren Weg die ausgeblendeten
Zeilen wieder einzublenden?

Ich würde da ja eben die Formel in A2 mit einem Button verdecken, der dann einfach per VBA den ‚Alle Einblenden‘-Befehl abarbeitet.

Revanche, keine Ahnung .
Bin Betriebswirtin, wir können essentiell nichts in der Tiefe

-P.

Hmmm, klingt ‚Wirt‘ nicht nach ‚Kochen‘…?
…da ich am anderen Ende der Nahrungskette meinen Platz
gefunden habe sollte sich doch da was machen lassen…

Du scheinst ausgehungert zu sein *lächel*

Nicht mehr, inzwischen hatte ich Abendbrot…

Aber, bist du sehr sicher daß mit „Ende der nahrungskette“ die
Nahrungsaufnahme durch Essen gemeint ist, ich nicht.
Das Ende der Nahrungskette versprühen z.B. Bauern auf ihren
Feldern

Das kommt halt darauf an wie weit man den Begriff ‚Nahrungskette‘ fasst.

Wenn Kochen das eine Ende ist, dann ist für mich die Nahrungsaufnahme das andre Ende.

Wenn das Verteilen auf dem Feld das andere Ende ist, dann ist das Pflanzen dann wohl das eine Ende…

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -