Zellinhalt in ein Argument im Makro verwenden
Verfasst: Di 28. Feb 2023, 19:35
Hallo zusammen,
leider verfüge ich nicht über Programmierkenntnisse und hoffe, ich bin hier im Calc-Bereich richtig.
In der Vergangenheit hatte ich mir das Gerüst mit der Makroaufzeichnung gestellt - in der Tabelle gespeichert und dann meine veränderlichen Bereiche aus den Zellen mit den vorhanden Funktionen geholt. Klappt bei den alten Versionen von Calc bis heute alles prima.
Nun muss ich (leider) modifizieren. Ich habe z.B. meinen Kopierbereich in Zelle D80 (z.B. $A$26..$H$28).
Wie bekomme ich meinen Zellinhalt zwischen die Hochkommatas als Value für args1?
Danach sollte ich weiterkommen ... hoffe ich ....
Danke vorab
Auszug aus sub1
REM ***** BASIC *****
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$80"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub
leider verfüge ich nicht über Programmierkenntnisse und hoffe, ich bin hier im Calc-Bereich richtig.
In der Vergangenheit hatte ich mir das Gerüst mit der Makroaufzeichnung gestellt - in der Tabelle gespeichert und dann meine veränderlichen Bereiche aus den Zellen mit den vorhanden Funktionen geholt. Klappt bei den alten Versionen von Calc bis heute alles prima.
Nun muss ich (leider) modifizieren. Ich habe z.B. meinen Kopierbereich in Zelle D80 (z.B. $A$26..$H$28).
Wie bekomme ich meinen Zellinhalt zwischen die Hochkommatas als Value für args1?
Danach sollte ich weiterkommen ... hoffe ich ....
Danke vorab
Auszug aus sub1
REM ***** BASIC *****
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$80"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub