To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=107418 Issue #|107418 Summary|createEnumeration with array Component|scripting Version|OOO310m9 Platform|Unknown URL| OS/Version|Windows 7 Status|NEW Status whiteboard| Keywords| Resolution| Issue type|DEFECT Priority|P3 Subcomponent|code Assigned to|kr Reported by|hawe
------- Additional comments from h...@openoffice.org Thu Dec 3 16:45:54 +0000 2009 ------- I dont know it is a bug, but can you verify the code: I get no enumeration in oListCells using the array CellList. With the line in comment I get an enumeration... curious? Debuging oRange, oRanges looks OK. Sub MakeList CellList = Array("B5:D5","C6:H6") oSheet = ThisComponent.CurrentController.ActiveSheet for i = 0 to UBound(CellList) oRange = oSheet.getCellRangeByName(CellList(i)) ' oRange = oSheet.getCellRangeByName("C5:H6") oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") oRanges.insertByName(str(i), oRange) oListCells = oRanges.Cells.createEnumeration While oListCells.hasMoreElements ReDim Preserve oVariables(i) oCell = oSearchCells.nextElement oVariables(i) = oCell.getCellAddress() i = i + 1 Wend next End Sub BTW: Can I first insert all Ranges in CellList to oRanges and then createEnumeration? Gruß HW --------------------------------------------------------------------- Please do not reply to this automatically generated notification from Issue Tracker. Please log onto the website and enter your comments. http://qa.openoffice.org/issue_handling/project_issues.html#notification --------------------------------------------------------------------- To unsubscribe, e-mail: issues-unsubscr...@script.openoffice.org For additional commands, e-mail: issues-h...@script.openoffice.org --------------------------------------------------------------------- To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org For additional commands, e-mail: allbugs-h...@openoffice.org