OOo Basic / Makro: Inhalt der markierten Zelle kopieren

[Stephan]

Du brauchst nur die Zeilen:

Code: Alles auswählen

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$B$8"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

in der Aufzeichnung zu löschen.

(Hinweis: args3 kann bei Dir evtl. auch anders heißen z.B. args4)



Gruß
Stephan

[Stephan]

vielleicht entdeckt ja jemand den "fehler".

Naja, der Dir gegebene Ratschlag ist ganz einfach falsch gewesen.

In der Zeile:

Code: Alles auswählen

args1(0).Value = "$B$8"

wird der 'Name' einer Zelle erwartet, die Zeile:

Code: Alles auswählen

args1(0).Value = "ThisComponent.GetCurrentSelection"

übergibt jedoch das Zellobjekt der Zelle. Eigentlich nicht einmal das weil Du es noch falsch geschrieben hast denn im Sinne was dir geraten wurde müßte es heißen:

Code: Alles auswählen

args1(0).Value = ThisComponent.GetCurrentSelection

(funktionieren tut das natürlich auch nicht)


Ich bin leider gerade zu bequem einen richtigen Code hinzuschreiben weil ich grade eine DEnkblockade habe wie ich auf einfachen Wege "$B$8" bekomme, denn "B8" funktioniert an der Stelle wohl nicht.



Gruß
Stephan

[Karolus]

Hallo

Ich bin leider gerade zu bequem einen richtigen Code hinzuschreiben weil ich grade eine DEnkblockade habe wie ich auf einfachen Wege "$B$8" bekomme, denn "B8" funktioniert an der Stelle wohl nicht.

Code: Alles auswählen

a_abs_name = split ( thiscomponent.currentSelection.AbsoluteName , ".")
cellname = a_abs_name( ubound( a_abs_name ))

Karo

[Stephan]

doch, nach dem entfernen der an- und abführung ist alles OK

wenn das so ist (habs nicht gegengeprüft) hab ich mich ziemlich blamiert denn ich habe ganz sicher angenommen das nur der Zellname aktzeptiert wird und sogar nur als absolute Angabe.


Gruß
Stephan

[Stephan]

Hallo

Ich bin leider gerade zu bequem einen richtigen Code hinzuschreiben weil ich grade eine DEnkblockade habe wie ich auf einfachen Wege "$B$8" bekomme, denn "B8" funktioniert an der Stelle wohl nicht.

Code: Alles auswählen

a_abs_name = split ( thiscomponent.currentSelection.AbsoluteName , ".")
cellname = a_abs_name( ubound( a_abs_name ))

Karo

Ja, danke. Mir fiel .AbsoluteName nicht ein .

Ich habe die ganze Zeit mit .UserInterfaceRepresentation rumgemacht, basierend auf ThisComponent.CreateInstance(com.sun.star.table.celladdressConvertion)




Gruß
Stephan