Ich benutze seit 3 Jahren eine Calc-Tabelle zur Erfassung von Behandlungen. Bisher - ich kann leider nicht genau sagen, seit wann es nicht mehr klappt - konnte ich einzelne Zeilen markieren und sie wurden mir in eine andere Tabelle zusammenhängend wieder eingefügt. Von dort befülle ich dann die Rechnung per S-Verweise. Alles was nach dem Markieren kommt geschieht per Makro.
Nun werden die markierten Zellen nicht mehr kopiert und der aktuelle Inhalt der Zwischenablage wird eingefügt, wenn ich das Makro per Schaltfläche aufrufe.
Bei manuellem Aufruf klappt alles wie es sollte.
Ich habe schon diverse Beiträge durchgestöbert, konnte aber leider keine funktionierende Lösung finden.
Die Schaltfläche ist so konfiguriert, dass das Makro bei "Aktion ausführen" und "Taste gedrückt" eingetragen ist, wobei "taste gedrückt" automatisch eingefügt wird.
Ich bin für jeden Hinweis dankbar
Herzlichen Dank
Angela
Hier das Makro, wobei ich nicht glaube, dass es daran liegt:
Code: Alles auswählen
sub Behandlungen_in_Rechnung
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Nr"
args2(0).Value = 6
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$33"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVDFT"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())
end sub
