OpenOffice.info

Hey, gerade eben hab ich es zum Laufen gebracht.

Hier nochmal wie es jetzt bei mir aussieht:
[attachment=0]diagramtitle_libre Anwendung 02.png[/attachment]

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

Schönes Rest WE noch und bleibt gesund

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

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]=DIAGRAMTITLE_LIBRE("Kalenderwoche "&TEILERGEBNIS(5;A2:A41);TABELLE("Tabelle2");"MeinDiagramm_T1_1")&T(ZUFALLSZAHL())[/code]
Der Bezug TABELLE() bezieht sich auf ein anderes Tabellenblatt, hier TABELLE("Tabelle2")
Ist das Diagramm in der gleichen Tabelle, reicht irgendein Bezug.

[attachment=0]Diagramm_Autotitle Makro(1).ods[/attachment]

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

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

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

@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 :
[b]Vielen Dank für die Tipps und das Makro[/b] 8)
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]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[/code]
Aufruf
[code]=DIAGRAMTITLE_LIBRE(D2 ;TABELLE(E2);"MeinDiagramm_T1_1")[/code]
[b]title[/b] = [color=#FF0000]D2[/color] -- passt, aus dieser Zelle wird der Titel übernommen

[b]sheetnumber[/b] = [color=#FF0000]TABELLE(E2)[/color] -- ?? egal welche Zelle ich dort eintrage, ob leer oder mit Inhalt hat keine Auswirkung

[b]sname[/b] =[color=#FF0000]"MeinDiagramm_T1_1"[/color] -- 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.

[attachment=0]diagramtitle_libre Anwendung 01.png[/attachment]

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

Hallo,

mit Teilergebniss (C4) in einer Hilfsspalte.
Die Hilfsspalte ist unnötig, wenn diese Formel benutzt wird.
[code]=INDEX(A4:A22;TEILERGEBNIS(5;A4:A22);1)[/code]

Das Makro und die Zelle greifen auf C4 zu.
[attachment=1]Diagramm_Autotitle (4).ods[/attachment]

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.

[attachment=0]Diagramm_Autotitle (3).ods[/attachment]


Gruß HeritzP

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:
[attachment=0]Diagramm_Autotitle (3).ods[/attachment]
Die Auswahl einer Kalenderwoche im Filter passt die Grafik an

@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...)

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

Hallo,

mit einem Makro, das es bereits gibt z.B. so.
[url]http://www.oooforum.de/viewtopic.php?f=2&t=63701&sid=e0442ef3cea4fb3ff3490c55772c96f6[/url]

[attachment=0]Diagramm_Autotitle (3).ods[/attachment]

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

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.

[attachment=0]Filterkriterium in Text.png[/attachment]

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