[gelöst] Quellbereich von Listenfeld per Makro ändern

[Oscar B]

Moin,
ein Problem gelöst und direkt das Nächste
Ich habe in einer Tabelle zwei Listenfelder. Das eine mit verschiedenen Kategorien und das andere mit Unterkategorien.
Nun hänge ich daran in dem zweiten Listenfeld die Einträge zu ändern, je nach dem, welche Oberkategorie ausgewählt ist.
Bis jetzt habe ich im zweiten Listenfeld einen Quellbereich angegeben und in diesem ändern sich die Einträge über eine WENN Funktion. Das Problem ist, das die verschiedenen Kategorien unterschiedlich viele Unterkategorien haben. Das heißt mit meiner jetzigen Lösung sind bei den Kategorien mit weniger Unterkategorien einige Zeilen einfach leer.

Nun möchte ich über ein Makro den Quellbereich des Listenfeldes anpassen, je nach dem, welche Kategorie ausgewählt ist. Mit dem Xray Tool bin ich auf die Eigenschaft ListEntrySource -> CellRange gestoßen. Das Problem ist, das diese anscheinend Schreibgeschützt ist.
Habt ihr Ideen, wie das gehen könnte?

Vielen Dank
Oscar

[mikele]

Hallo,
ich bin mir nicht sicher, wo die Reise hingeht.
Mit Hilfe benannter Bereiche und Gültigkeit lässt sich so etwas ohne Makro realisieren.

Bis jetzt habe ich im zweiten Listenfeld einen Quellbereich angegeben und in diesem ändern sich die Einträge über eine WENN Funktion.

Reden wir von Calc oder Basic?
Kannst du uns deinen aktuellen Stand als Datei zur Verfügung stellen?

[Oscar B]

Hallo!
Ich hatte mich etwas blöd ausgedrückt:
Es geht um Listenfelder aus den Formular-Steuerelementen und nicht um die Auswahl bei Datengültigkeit!
Die WENN Funktion ist kein Makro sondern in der Calc Tabelle.

Die gesamte Tabelle kann ich leider nicht hochladen, aber hier ist eine Datei, mit den Listenfeldern, wie sie im Moment sind und einem gekürzten Makroversuch!

Listenfelder.ods

(13.3 KiB) 163-mal heruntergeladen

Vielen Dank
Oscar

[mikele]

Hallo,
ich bin es mal etwas anders angegangen, sodass es für dich (glaube ich) flexibler ist.
Auf dem Tabellenblatt "Daten für Listen" befinden sich in der ersten Zeile die Hauptkategorien. Darunter befinden sich die Unterkategorien. Wird auf diesem Tabellenblatt etwas geändert, werden die Listenfelder automatisch aktualisiert (Makro "init"), das Listenfeld 1 allerdings nur, wenn in der ersten Zeile (also den Hauptkategorien) etwas geändert wurde.
Wird die Auswahl im Listenfeld 1 geändert, wird das Listenfeld 2 angepasst (Makro "unterkategorie").
Es werden so viele Einträge in die Listenfelder geschrieben, wie im Tabellenblatt "Daten für Listen" vorhanden sind (jeweils bis zur ersten leeren Zelle).

[mikele]

Hallo,
da mich die Variante per Quellzellenbereich gereizt hat, hier eine entsprechende Lösung.
Die Eigenschaft .ListEntrySource kann nicht einfach so gesetzt werden, sondern stellt einen komplexeren Service dar (der entsprechende Zellbereich muss z. B. auf Änderungen überwacht werden). Dieser Service muss entsprechend initiert werden und kann dann dem Listenfeld zugeordnet werden.
Dazu dient der folgende Code-Teil meiner Beispieldatei:

Code: Alles auswählen

		Dim initParam as new com.sun.star.beans.NamedValue
		initparam.name="CellRange"
		initparam.Value=oBereich
		oListSource=doc.createInstanceWithArguments("com.sun.star.table.CellRangeListSource",Array(initparam))
		
		FrmListeb.ListEntrySource=oListSource

[F3K Total]

Moin,
irgendwie hatte ich im Gefühl, dass es auch ohne Makro funktioniert, anbei dein Beispiel, verändert.
Ich lasse vom ersten Listenfeld die Position des gewählten Eintrags ausgeben und verwende diese Zahl mit der Index()-Funktion als Matrix-Funktion um die Einträge der Unterkategorie, so wie du in deinem Beispiel, immer an der selben Stelle auszugeben.

Gruß R

[Oscar B]

Moin!
Die Lösungen von mikele sind beide wirklich super! Eine davon werde ich nehmen. Mal schauen welche sich besser einbauen lässt.

Die dritte Lösung ohne Makro funktioniert zwar, man hat aber wieder mein eigentliches Problem, dass bei den Kategorien mit weniger Unterkategorien leere Auswahlmöglichkeiten in der Liste sind. Danke trotzdem dafür!

Vielen Dank für eure Mühen und schöne Ostertage!
Oscar

[F3K Total]

Moin,

... wieder mein eigentliches Problem, dass bei den Kategorien mit weniger Unterkategorien leere Auswahlmöglichkeiten in der Liste sind...

ups, den Wunsch hatte ich überlesen.
Das bekomme ich ohne Makro auch nicht hin.

Gruß R