ich bin etwas irritiert bezüglich dem Aufzeichnen von Makros. Ich habe eine Tabelle, die einige Spalten hat. In diese wiederum sollen händisch Daten eingetragen werden, so ca. 500 Datensätze. Dazu wollte ich die Calc-Funktion Daten-> Formular nutzen, weil das die Eingabe doch ein bisschen einfacher gestaltet (nicht für mich, sondern für diejenigen, die das dann dort eintragen sollen, und die sind in der Regel nicht so versiert im Umgang mit Computern).
Um das direkt über einen Button zu aufzurufen, habe ich ein Makro aufgezeichnet. Zuerst markiert man ja den Bereich, der später vom Formular abgedeckt sein muss. Das klappt noch ohne weiteres. Wenn ich dann aber auf den Menüpunkt Daten -> Formular gehe, wird das nicht mehr im Makro mit aufgezeichnet.
Code: Alles auswählen
sub Daten_eingeben
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 = 2
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 = "$A$1:$J$500"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end sub