LibreOffice-Forum

nach nun 3 Wochen und absoluter Ratlosigkeit was ich tun soll bitte ich euch um Hilfe.
Ich habe mich versucht durch zu beißen aber nach 2 Tastaturen gebe ich mich geschlagen.

Ich versuche über den MAcrorecorder olgende Situation aufzuzeichnen:

1.einen Bereich aus einer Tabelle markieren und Copieren.
2. sprung in eine andere Tabelle
3.Den Kopierten Bereich dort einfügen
4.Eine Zeile nach unten verschieben um für die nächste Past anweisung platz zu schaffen
5.Zurück springen in die Ausgangstabelle
6. Macro über Button Akton einbinden.
Resultat:
Entweder nur leere Zeilen werden nach unten verschoben oder
die Tabelle wird komplett zerschossen mit der erstn Spalte.

So sieht die Anweisung bis jetzt aus:
REM ***** BASIC *****

sub Main
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 = "ToPoint"
args1(0).Value = "$F$16:$K$16"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 17

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$B$3:$G$3"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertRowsBefore", "", 0, Array())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Nr"
args7(0).Value = 1

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args7())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "ToPoint"
args8(0).Value = "$F$16"

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


end sub

________________________
Vielen Dank schon mal hoffe irgend jemand auf diesem Planeten hat einen Plan

Hallo, bitte lies die online-Hilfe bezgl. Makroaufzeichnung, ich fürchte das geht nicht so wie du es möchtest.
https://help.libreoffice.org/Common/Rec ... a_Macro/de
Vor allem was die Beschränkung der Makroaufzeichnung betrifft.
Gruß Helmut