createEnumeration
Verfasst: Do, 03.12.2009 10:03
Hallo zusammen,
kann mir jemand erklären, warum oListCells bei dieser Sub leer bleib?
Ich bekomme keine Auflistung der Zellen in oRanges (der laut Debugger wohl definiert ist) ...
Wäre net, wenn jemand mal den Code laufen lässt und meine Feststellung bestätigt oder widerlegt, danke!
kann mir jemand erklären, warum oListCells bei dieser Sub leer bleib?
Ich bekomme keine Auflistung der Zellen in oRanges (der laut Debugger wohl definiert ist) ...
Wäre net, wenn jemand mal den Code laufen lässt und meine Feststellung bestätigt oder widerlegt, danke!
Code: Alles auswählen
Sub MakeList
CellList = Array("B5:D5","C6:H6")
oSheet = ThisComponent.CurrentController.ActiveSheet
oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
for i = 0 to UBound(CellList)
oRange = oSheet.getCellRangeByName(CellList(i))
oRanges.insertByName(str(i), oRange)
next
i=0:oListCells = oRanges.Cells.createEnumeration
While oListCells.hasMoreElements
ReDim Preserve oVariables(i)
oCell = oListCells.nextElement
oVariables(i) = oCell.getCellAddress()
i= i + 1
Wend
End Sub