Fehlermeldung:Mehrfachselektion nicht möglich

[MaximilianWe]

bei diesem Programm erscheint beim zweiten Aufruf von "move" innerhalb der if-Schleife die Fehlermeldung "..Mehrfachselektion nicht möglich".
Es handelt sich ja nicht um eine solche, sondern nur um einen wiederholten Aufruf.
Kann man hier Abhilfe schaffen?

sub test2
dim document as object
dim dispatcher as object
dim dest as string
dim weiter as integer
dim von as string
rem ----------------------------------------------------------------------
spalten = array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","AA","AB","AC","AD","AE","AF")
zeile= 2011 -2000 + 2
i=15
if i < 27 then
von = spalten(i) & zeile
zeilenr =lesen(1,von )
argument1= "Tabelle2." & spalten(i) & "1"
argument2= "Tabelle1.H" & zeilenr
msgbox "argument1=" & argument1 &"argument2"& argument2
move(argument1,argument2,"copy")
i=i+1
end if
end sub

sub move(from as string, dest as string,typ as string)
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 = from

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

rem ----------------------------------------------------------------------
if typ="cut" then
dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
else
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end if
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = dest

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

end sub

[Bertold]

Hallo,

für Programmierung hat dieses Forum gleichnamige Rubrik
http://www.libreoffice-forum.de/viewforum.php?f=12

[komma4]

für Programmierung

Dispatcher-Code hat mit Programmierung auch nicht viel zu tun.

Ist schwer zu lesen und schwer zu verstehen.