createEnumeration

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: createEnumeration

Re: createEnumeration

von hawe » Di, 08.12.2009 09:10

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

createEnumeration

von hawe » 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!

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

Nach oben