variable zellen in excel / openoffice
Hallo,
ich habe momentan folgendes Problem:
Per Makro Script will ich einen Inhalt in eine Zeile einfügen. Bei einem Inhalt handelt es sich aber um einen "SVERWEIS". Damit dieser SVERWEIS stimmt, muss die richtige Zeilennummer eingetragen werden. Wie muss ich das machen?
Zeile 62 ist hier in diesem Beispiel, aber je nachdem welche Zeile ich auswähle soll diese automatisch eingetragen werden.
Gruß
Sichtbarer.
Mein Code:
sub kauderwe
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 = "$C$62"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "=SVERWEIS(B62;lalla)"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
args4(1).Name = "Sel"
args4(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args4())
end sub
Antwort schreiben