in Calc kopieren van een cellenbereik naar een ander blad

[Deken]

De macro hieronder (OooCalc) kopieert een cellenbereik van een blad naar een ander in hetzelfde werkblad. Het nadeel is dat bij het kopieren van meerdere bereiken het resultaat op het scherm flikkert van het ene blad (bron) naar het andere (doel). Dat komt doordat ik beide bladen in de macro afwisselend selecteer. Hoe kan ik dit aanpassen zodat ik het doelblad alsook het bronblad niet meer moet kiezen.
Leo
Sub CopyRange
dim oDoc as object, oDisp as object
dim oSourceSheet as Object, oSourceRange as Object, Sheets as Object
dim oTargetSheet as Object, oTargetRange as Object
Counter1 = 20
oDoc = ThisComponent
oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
oSourceSheet = oDoc.Sheets.getByName("Leo")
oSourceRange = oSourceSheet.getCellRangeByName("$H$2:$J$" & Counter1)
octl = ThisComponent.getCurrentController()
octl.Select(oSourceRange)
oDisp.executeDispatch(octl, ".uno:Copy", "", 0, NoArg())
oTargetSheet= oDoc.Sheets.GetByName("Details")
oTargetCell = oTargetSheet.getCellByPosition (0,2)
octl.Select(oTargetCell)
oDisp.executeDispatch(octl, ".unoaste", "", 0, NoArg())
End Sub

 

[DiGro]

  ThisComponent.LockControllers

en

  ThisComponent.unLockControllers

als equivalenten van ScreenUpdating in VBA.

Zouden echter werken op een aantal notificaties en niet ALLE.

en anders misschien

thisComponent.CurrentController.Frame.ContainerWindow.Enable = False

en

thisComponent.CurrentController.Frame.ContainerWindow.Enable = True

volgens Mark Alexander BAIN

 

[Deken]

DiGro,
Dank voor uw reactie.
Wel veel te laat maar door omstandigheden heb ik op PC gebied een tijd moeten stil liggen. Laat mij U mede delen dat in mijn geval de door u opgegeven mogelijkheden bij mij hetzelfde resultaat hebben.