OpenOffice.info

Oblitor hat geschrieben:Das wär das Makro, nur funktionierts nicht bei Aufruf über Button, nur über Makro ausführen, ich werd mal schaun woran jetz das hängt....

sub ReNr
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 ----------------------------------------------------------------------
rem - Sprung auf H15 - Inhalt der Zelle =G15+1

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$H$15"

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

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

rem ----------------------------------------------------------------------
rem - Sprung auf G15, Inhalt ist einfache Zahl -

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$G$15"

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

rem ----------------------------------------------------------------------
rem - Einfügen nur des Zahlenwertes von G15 in H15, dadurch erhöht sich G15 um 1 -
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "V"
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

Oblitor hat geschrieben:Nur wie erhöhen per Button?
Mit Macro String auslesen und den Teil nachm zweiten "+" um eins erhöhen, keine Ahnung wie ich sowas programmier...