Tabbellen Name anstatt Nummer im Makro verwenden [gelöst]
Verfasst: Di 16. Mai 2023, 09:56
Hallo zusammen,
ich habe mir mit dem Makro Recorder ein paar Abläufe aufgenommen, um diese zu automatisieren und folgendes Problem festgestellt.
Ich wähle eine bestimme Tabelle in meinem Sheet aus um einen Bereich zu kopieren und um diesen in einer anderen Tabelle wieder einzufügen.
Jetzt habe ich jedoch das Problem das im Makro die jeweilige Tabelle als Nummer erfasst wird und nicht als Name.
Denn in meinem Sheet kommen immer wieder weitere Tabellen hinzu und somit stimmt die Nummer dann eben nicht mehr mit dem Tabellenblatt über ein aus welchem ich Daten kopiere und dem wohin ich es einfügen will.
Wie kann ich in dieser Prozedur anstatt der Nummer den Tabellen Namen übergeben um so immer eine korrekte Zuordnung zu gewährleisten?
Vielen Dank.
ich habe mir mit dem Makro Recorder ein paar Abläufe aufgenommen, um diese zu automatisieren und folgendes Problem festgestellt.
Ich wähle eine bestimme Tabelle in meinem Sheet aus um einen Bereich zu kopieren und um diesen in einer anderen Tabelle wieder einzufügen.
Code: Alles auswählen
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 31
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$29:$Q$40"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 32
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())Code: Alles auswählen
args1(0).Name = "Nr"
args1(0).Value = 31Wie kann ich in dieser Prozedur anstatt der Nummer den Tabellen Namen übergeben um so immer eine korrekte Zuordnung zu gewährleisten?
Vielen Dank.