createEnumeration

[hawe]

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!

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

[hawe]

Dann antworte ich halt selber,
Der Fehlschlag entsteht, weil createEnumeration nur nicht leere Zellen ausliefert...