Simples Makro - Wertübergabe bei Mausklick / Selektion

[gigicarlo]

Hallo Zusammen

ich hänge an einem kleinen Luxusproblem fest ...

Ich würde gerne etwas - scheinbar sehr simples reagieren - und zwar das der existierende Werte einer Zelle in einem Bereich - an eine definierte andere Zelle übergeben wird. Las das was man eigentlich mit Copy-paste macht - im Moment habe ich es durch eine Drop-Down über "Gültigkeit gelöst.

Noch schneller wäre es aber den Wert beim Klick auf die Zelle zu übergeben. (1 Mausklick weniger)

Nun habe ich ne ganze Menge gegoogelt und bin immer an einen Punkt gestoßen, wo ich endlos SDK's etc Lesen muss. Was mir einfach zu kompliziert ist. Ich bin ja kein Programmierer, sondern habe mir nur jetzt einmal eine spezielle kompliziertere Tabelle gebaut.

Soweit ich das verstehe geht das nur über sog. "UNO - Listener", aber da genau die Syntax rauszufinden ....

Vielleicht ist jemand so nett - und mag mir helfen ..

Also och mal zusammengefasst

In den Zellen A1 - A30 stehen 30 Oberbegriffe - Beim Klick auf eine der 30 Zellen soll der aktuelle Wert der Zelle an eine feste (immer dieselbe z.B. C30) Zelle gegeben werden - dort wird dann über einen "Sverweis" eine Liste von 4 - 30 Begriffen ausgegeben, die in die Kategorie des gewählten Oberbegriffs gehören.

Ganz simpel, einfach
.... aber für einen Amateur-Nerd dann doch nicht

Wäre sehr dankbar

P.S.: Wenn es gute Gründe gibt das in Python / UNO zu machen, hab' ich auch nix dagegen

Gruß Luigi


_________________
Moderation: Thema von OOo Calc nach OOo Basic und Java verschoben, wo alle Themen zur Basic-Programmierung hingehören.—lorbass, Moderator

[Stephan]

2 Zeilen Code machen das wenn Du das Ganze dem Tabeleneeignis "Auswahl geändert" zuweist:

Code: Alles auswählen

Sub Main(x)
  On Error Resume Next
  ThisComponent.Sheets(0).getCellRangeByName("C30").FormulaLocal =  x.FormulaLocal
End Sub

Gruß
Stephan

[clag]

Moin gigicarlo,

wenn du dich mit der Anordnung untereinander anfreunden kannst wäre doch ein Listenfeld verknüpft mit "C30"
eine einfache makrofreie Lösung die sofort den gewünschten "Titel" in C30 einträgt.

Listenfeld_C30.ods

(9.81 KiB) 175-mal heruntergeladen

Vielleicht hilft dir das Listenfeld so auch ohne Makro weiter?
Zusätzlicher Vorteil wie ich finde, der gewählte Eintrag ist gut erkennbar weil bleibt markiert.

[gigicarlo]

Das ist Prima

Danke - Diese Art von Feldern kannte ich noch nicht - damit komme ich gut zurecht


Gruß Luigi

[gigicarlo]

Das Tabellenereignis "Auswahl geändert" taucht in meiner Liste nicht auf ...

Kann ich das hinzufügen ?? Wie ??

2 Zeilen Code machen das wenn Du das Ganze dem Tabeleneeignis "Auswahl geändert" zuweist:

Code: Alles auswählen

Sub Main(x)
  On Error Resume Next
  ThisComponent.Sheets(0).getCellRangeByName("C30").FormulaLocal =  x.FormulaLocal
End Sub

Gruß
Stephan

[gigicarlo]

Hab's gefunden !!!!


Nicht unter "Extras->Anpassen", sondern - Rechtsknick auf den Tabellen-Reiter !!!!

Super !!!

Wahnsinn - hätte ich nie alleine hinbekommen, und es ist so elegant ...

Herzlichen Dank

Gruß Luigi

[gigicarlo]

Hm - zu früh gefreut .....

Es funktioniert ....

Aber es macht die Tabelle unheimlich träge... liegt es vielleicht daran, dass die Ganze Tabelle "überwacht" wird ??

Mir würde ein Bereich von E5:E71 ausreichen

Gruß Luigi

Hab's gefunden !!!!


Nicht unter "Extras->Anpassen", sondern - Rechtsknick auf den Tabellen-Reiter !!!!

Super !!!

Wahnsinn - hätte ich nie alleine hinbekommen, und es ist so elegant ...

Herzlichen Dank

Gruß Luigi