(Gelöst) Makro Fehlermeldung

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: (Gelöst) Makro Fehlermeldung

Re: (Gelöst) Makro Fehlermeldung

von Jörg » Mi, 04.06.2014 12:59

Hallo,
hab zwar keine Ahnung warum es jetzt funtioniert, aber es geht.
Und zwar hab ich ein ganz anderes schon vorhandenes Makro in der Tabelle ausgeführt.
Anschließend funktionierte auch das im obigen Beitrag beschriebene.
Hmm.
Falls vielleicht doch jemand eine Erklärung für diese Mysterium hat, lasse er/sie es mich wissen.

Gruß Jörg

(Gelöst) Makro Fehlermeldung

von Jörg » Mi, 04.06.2014 11:44

Hallo,
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

Nach oben