[gelöst] Filterkriterium dynamisch in Diagrammüberschrift?

[deBabba]

Hi zusammen,
ich suche nach einer Möglichkeit das Filterkriterium einer Liste in der Überschrift des Diagrammes zu verwenden.
In meiner Liste, die ein Extrakt aus einer anderen Erfassungstabelle ist, werden verschiedene Daten wochenweise über die Jahre abgelegt. Über den Filter "KW" wird die Woche selektiert und das Diagramm entsprechend erstellt.

Filterkriterium in Text.png (246.55 KiB) 3990 mal betrachtet

Hat jemand ne Idee?
Bin dankbar für jeden Tipp

[HeritzP]

Hallo,

mit einem Makro, das es bereits gibt z.B. so.
http://www.oooforum.de/viewtopic.php?f= ... 55772c96f6

Diagramm_Autotitle (3).ods

(26.48 KiB) 128-mal heruntergeladen

Mit etwas tricksen auch ohne Makro, als gelber Hintergrund markiert.
Die Umrandung des Zellbereiches hinter dem Diagramm als weiß definieren, oder komplett in der Höhe des Filterbezuges.

Bei dem Diagramm die Diagrammfläche zu 100 % transparent machen.
In die Zelle neben dem Diagrammtitel den Zellbezug =A2 eingeben.
Das Diagramm dann über die Zelle schieben.

Gruß HeritzP

[deBabba]

Hey HeritzP, vielen Dank für die schnelle Antwort.

Wenn ich das richtig verstehe, dann haben beide Funktionen einen fixen Bezug, was mir in diesem Fall nicht weiterhilft.
A2 bleibt ja immer konstant, die erste angezeigte Zeile unter dem Filter ändert sich ja je nachdem welches Filterkriterium aktiviert ist. Der Wert bewegt sich dann zwischen KW 1 und KW 53.

Eine Funktion müsste irgendwie an den eingestellten Filter kommen und den Wert auslesen. Könnte mir vorstellen, daß das recht aufwändig wäre.

Viele Grüße

[quotsi]

@deBabba
Wenn du hier (kostenlos) richtige Hilfe haben willst, dann mußt du eine anonymisierte Beispieldatei, nicht ein Bild, hochladen.
Ich habe den Vorschlag von HeritzP nicht nachgeprüft. Aber sofern in ZelleA2 der Filterwert von 1... stehen soll, dann mußt du schon beitragen und uns erklären, wie der Filterwert beschaffen sein soll und woher er kommen soll (vom aktuellen Datum oder nacheinander in welchem Rhythmus oder...)

[deBabba]

Okay, sorry, ich dachte es wäre klar anhand des Bildes, dass der Autofilter angewendet und auf KW20 gestellt wurde. Wenn man auf A2 referenziert, dann wird immer der statische Inhalt von A2 verwendet, es soll aber der Wert der Filtereinstellung verwendet werden.

Ich denke allerdings, daß dies etwas kompliziert ist, da ja die unterschiedlichsten Kriterien angewendet werden können.

Habe die Datei um ein Beispiel ergänzt:

Diagramm_Autotitle (3).ods

ergänzt um ein Beispiel

(34.58 KiB) 121-mal heruntergeladen

Die Auswahl einer Kalenderwoche im Filter passt die Grafik an

[HeritzP]

Hallo,

mit Teilergebniss (C4) in einer Hilfsspalte.
Die Hilfsspalte ist unnötig, wenn diese Formel benutzt wird.

Code: Alles auswählen

=INDEX(A4:A22;TEILERGEBNIS(5;A4:A22);1)

Das Makro und die Zelle greifen auf C4 zu.

Diagramm_Autotitle (4).ods

(25.61 KiB) 126-mal heruntergeladen

Der Nachteil mit der Zelle ist, dass das Diagramm außerhalb des Filterbereiches sein muss.
Das trifft nicht zu, wenn in dem kompletten Filterbereich die Umrandung auf Weiß gestellt ist.

Diagramm_Autotitle (3).ods

(37.6 KiB) 100-mal heruntergeladen

Gruß HeritzP

[deBabba]

@HeritzP,

zunächstmal sorry für die späte Antwort, ich hatte gestern schon mal einen Post geschrieben, aber offenbar nicht korrekt abgeschickt ... Asche auf mein Haupt. Aber jetzt :
Vielen Dank für die Tipps und das Makro
Die Lösung mit dem Teilergebnis Minimum ist ein genialer Trick, der für diese Zwecke perfekt funktioniert. Das Makro funktioniert im Beispielsheet von Dir auch obwohl beim durchsteppen ein Laufzeitfehler auftritt beim durchlaufen der Schleife, in meinem Auswertungssheet hab ich es bisher noch nicht zum Laufen gebracht.
Um ehrlich zu sein verstehe ich auch die Übergabeparameter nicht so ganz:
Code

Code: Alles auswählen

REM  *****  BASIC  *****
function diagramtitle_libre( title, sheetnumber, sname)
	with thisComponent.Sheets.getByIndex( sheetnumber-1).Drawpage
	for i = 0 to .count() -1
		if .getByIndex(i).Name = sname then
			.getByIndex(i).Model.Title.String = title
			diagramtitle_libre = title
			exit function
		end if
	next i
	end with
end function

Aufruf

Code: Alles auswählen

=DIAGRAMTITLE_LIBRE(D2 ;TABELLE(E2);"MeinDiagramm_T1_1")

title = D2 -- passt, aus dieser Zelle wird der Titel übernommen

sheetnumber = TABELLE(E2) -- ?? egal welche Zelle ich dort eintrage, ob leer oder mit Inhalt hat keine Auswirkung

sname ="MeinDiagramm_T1_1" -- die letzte Ziffer ist offenbar die Nummer des Diagramms auf dem Blatt. Wird dort die 2 eingetragen, wird der Titel des zweiten Diagramms entsprechend geändert. Beim zweiten Diagramm allerdings nur wenn dahinter noch die Zufallszahl steht, beim ersten ist dies nicht erforderlich, was ich nicht verstehe.

diagramtitle_libre Anwendung 01.png (70.9 KiB) 3098 mal betrachtet

[HeritzP]

Hallo,

die Zufallszahl scheint es nicht mehr zu brauchen.
Das Makro ist ja schon etwas Älter, es kann sich da etwas geändert haben.

Code: Alles auswählen

=DIAGRAMTITLE_LIBRE("Kalenderwoche "&TEILERGEBNIS(5;A2:A41);TABELLE("Tabelle2");"MeinDiagramm_T1_1")&T(ZUFALLSZAHL())

Der Bezug TABELLE() bezieht sich auf ein anderes Tabellenblatt, hier TABELLE("Tabelle2")
Ist das Diagramm in der gleichen Tabelle, reicht irgendein Bezug.

Diagramm_Autotitle Makro(1).ods

(26.11 KiB) 109-mal heruntergeladen

Der Name "MeinDiagramm_T1_1" muss dem Diagramm per Hand zugewiesen werden.
Diagramm anklicken, Rechtsklick und Name.
Mit F5 wird der Navigator geöffnet, wo das Diagramm unter Ole-Objekte zu finden ist.
Dort kann der Name oder eine Kopie heruntergezogen werden.
Dazu Rechtsklick auf Namen und Draqmodus als Kopie auswählen.

Gruß HeritzP

[deBabba]

Hey, gerade eben hab ich es zum Laufen gebracht.

Hier nochmal wie es jetzt bei mir aussieht:

die Lösung

diagramtitle_libre Anwendung 02.png (242.1 KiB) 2938 mal betrachtet

Nochmals tausend Dank für die Mühe
Hab wieder ne Menge gelernt.

Schönes Rest WE noch und bleibt gesund