nachstehendes Makro hatte bisher einwandfrei funktioniert. Zum erstellen 2-er weiterer Makros hatte ich dieses kopiert, unter Makro bearbeiten eingefügt, umbenannt, den Zellbereich args1(0).Value = "$H$41:$I$41" in args1(0).Value = "$H$44:$I$44" geändert.
Beim Ausführen der Makros erscheint nun folgende Fehlermeldung
Unzulässiger Wert oder Datentyp.
Index außerhalb des definierten Bereichs.
ooo markiert mir dazu die unten gefärbte Zeile.
Vielen Dank schon mal im Voraus.
Jörg
Code: Alles auswählen
sub mld4_5
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 = "$H$41:$I$41"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$F$15"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
Sheet = ThisComponent.CurrentController.ActiveSheet
c = Sheet.getCellRangeByName("F15:F20").queryEmptyCells
[color=#FF0000] [size=150]getFirstEmptyRowInColumn = Split(c.RowDescriptions(0)," ")[/size][/color]
oRow = getFirstEmptyRowInColumn(1)
mycell = Sheet.getCellRangeByName("F" & oRow)
myView = thisComponent.CurrentController
myView.Select(mycell)
rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SV"
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