OpenOffice.info

Sub Main
	akt_sel = ThisComponent.getCurrentSelection
	If akt_sel.supportsService("com.sun.star.sheet.SheetCell") then
		'Zellinhalt von aktueller Zelle in Zelle A1 anzeigen
		ThisComponent.CurrentController.ActiveSheet.getCellByPosition(0,0).Value = _
		akt_sel.Value
	End If
End Sub

[quote]Gibt es evtl einen Trick, dass nur der Wert (Zahl) angezeigt wird, ohne das jeweilige Format der selektierten Zelle zu übernehmen?[/quote]

ja, mit .Value statt .FormulaLocal (und Format von A1 muss auf Formatcode "Standard" stehen):

[code]Sub Main
akt_sel = ThisComponent.getCurrentSelection
If akt_sel.supportsService("com.sun.star.sheet.SheetCell") then
'Zellinhalt von aktueller Zelle in Zelle A1 anzeigen
ThisComponent.CurrentController.ActiveSheet.getCellByPosition(0,0).Value = _
akt_sel.Value
End If
End Sub
[/code]

das gibt dann aber, wie gewünscht, tatsächlich den Wert in A1 aus, z.B. also für 01.12.2017 den Wert 43070.




Gruß
Stephan

[quote=Stephan post_id=272591 time=1512029967 user_id=814]
weise folgendes Makro dem Ereignis "Auswahl geändert" des entsprechenden Tabellenblattes zu:

[code]Sub Main
akt_sel = ThisComponent.getCurrentSelection
If akt_sel.supportsService("com.sun.star.sheet.SheetCell") then
'Zellinhalt von aktueller Zelle in Zelle A1 anzeigen
ThisComponent.CurrentController.ActiveSheet.getCellByPosition(0,0).FormulaLocal = _
akt_sel.FormulaLocal
End If
End Sub[/code]

Gruß
Stephan
[/quote]

Suuuper! Funktioniert soweit hervorragend, vielen lieben Dank dafür! Gibt es evtl einen Trick, dass nur der Wert (Zahl) angezeigt wird, ohne das jeweilige Format der selektierten Zelle zu übernehmen? Die eigentlichen Werte sind, wie bereits erwähnt, in Schriftgröße 6 formatiert, und mein Ziel war bzw ist ja, den jeweiligen Zellwert in der minimalen Zoomstufe (aus)lesen zu können...

Zur Not erstelle ich auch für diese eine Zelle eine eigene Formatvorlage (hab ja inzwischen reichlich Erfahrung damit ;-P ), aber dann wäre wieder das Problem, wie ich in diesem Makro dieser Zelle diese FV zuordne...

LG, Masl

[quote=Stephan post_id=272591 time=1512029967 user_id=814]
Ereignis "Auswahl geändert" des entsprechenden Tabellenblattes[/quote]

Jaaaa... Wenn man weiß, was überhaupt alles so möglich ist, dann klingen Fragen wie meine fast schon nach Veräppelung, glaub ich... X-D

Probiere ich auf jeden Fall gleich* einmal aus!

Vielen Dank - wie immer eigentlich - für die rasche Antwort! Fühl dich gedrückt... rein platonisch natürlich! ;-)

[quote=hylli post_id=272590 time=1512029821 user_id=4412]
Ja klar, siehe auch Antwort von @lorbass auf Deine gleiche aber etwas anders formulierte Frage:
http://de.openoffice.info/viewtopic.php?f=2&t=68691

Wenn Du da Deine Anfrage erstellst, wird Dir wahrscheinlich jemand helfen (können).

Hylli
[/quote]

Danke sehr! Diese Antwort von lorbass habe ich soeben zum erstenmal gesehen. Frage mich gerade, warum das nicht in den Benachrichtigungen aufgetaucht ist, zumindest hab ichs nicht wahrgenommen.

Also, nichts für ungut! Doppelte Anfrage war keine Absicht, ich denke mal, mit den bisher gesehenen Tipps sollte es klappen...

LG und vielen Dank für eure stets fixen Tipps und Antworten!

P.S.: Bevor man einen Beitrag zum Beantworten nach der stets u ständig erforderlichen Neuanmeldung wiedergefunden hat, hat man mindestens ein graues Haar mehr im Gesicht... ;-)

Sub Main
	akt_sel = ThisComponent.getCurrentSelection
	If akt_sel.supportsService("com.sun.star.sheet.SheetCell") then
		'Zellinhalt von aktueller Zelle in Zelle A1 anzeigen
		ThisComponent.CurrentController.ActiveSheet.getCellByPosition(0,0).FormulaLocal = _
		akt_sel.FormulaLocal
	End If
End Sub

weise folgendes Makro dem Ereignis "Auswahl geändert" des entsprechenden Tabellenblattes zu:

[code]Sub Main
akt_sel = ThisComponent.getCurrentSelection
If akt_sel.supportsService("com.sun.star.sheet.SheetCell") then
'Zellinhalt von aktueller Zelle in Zelle A1 anzeigen
ThisComponent.CurrentController.ActiveSheet.getCellByPosition(0,0).FormulaLocal = _
akt_sel.FormulaLocal
End If
End Sub[/code]

Gruß
Stephan

Ja klar, siehe auch Antwort von @lorbass auf Deine gleiche aber etwas anders formulierte Frage:
http://de.openoffice.info/viewtopic.php?f=2&t=68691

Wenn Du da Deine Anfrage erstellst, wird Dir wahrscheinlich jemand helfen (können).

Hylli

Halli hallo Fachleute,

ich habe eine ziemlich große Tabelle mit 182+183 klitzekleinen Zellen mit unterschiedlichen, ebenfalls klitzeklein geschriebenen Werten, die eben darum nur lesbar sind, wenn man nah heran zoomt. Um den eigentlichen Zweck dieser "Tabelle" zu nutzen (Farbverläufe), muss ich jedoch herauszoomen, was aufgrund der Größe der Tabelle mit abnehmendem Zoomlevel (mehr Zellen auf dem Bildschirm) jedoch eine recht ruckelige und somit nervige Angelegenheit wird.

Ich würde gern den Wert der aktuell angewählten Zelle in einer fixen Zelle im Kopf des Tabellenblattes angezeigt bekommen. Das Ganze wenn möglich live, sprich: Klicke ich auf eine andere Zelle, so wird, ohne dass es einer "Aufforderung" bedarf, deren Wert in der festgelegten Zielzelle angezeigt.

Hat da vielleicht jemand einen Ansatz?

LG, Masl