OpenOffice.info

Code: Alles auswählen

Sub Main

	oSel=ThisComponent.getCurrentSelection()
	'Ist ein einfacher Zellbereich gewählt oder ist es eine Mehrfachselection?
	If oSel.supportsservice("com.sun.star.sheet.SheetCellRanges") then
		'Mehrfachselection
		aAdressen=oSel.getRangeAddresses
		i=0
		zeile_min=aAdressen(i).StartRow
		zeile_max=aAdressen(i).EndRow
		spalte_min=aAdressen(i).StartColumn
		spalte_max=aAdressen(i).EndColumn
		
		do while i<ubound(aAdressen)
			i=i+1
			if zeile_min>aAdressen(i).StartRow then zeile_min=aAdressen(i).StartRow
			if zeile_max<aAdressen(i).EndRow then zeile_max=aAdressen(i).EndRow
			if spalte_min>aAdressen(i).StartColumn then spalte_min=aAdressen(i).StartColumn
			if spalte_max<aAdressen(i).EndColumn then spalte_max=aAdressen(i).EndColumn
		loop
	Else
		'einfacher Bereich
		zeile_min=oSel.getRangeAddress.StartRow
		zeile_max=oSel.getRangeAddress.EndRow
		spalte_min=oSel.getRangeAddress.StartColumn
		spalte_max=oSel.getRangeAddress.EndColumn
	end if
	
	msgbox 	zeile_min & chr(10) & zeile_max & chr(10) & spalte_min & chr(10) & spalte_max

End Sub

Code: Alles auswählen

For n = 0 To  selektion.getCount() - 1 'UBound(selektion)

ThisComponent.currentController.select( oCellRange )
oCellRange = ThisComponent.getCurrentSelection()'.getRangeAddress
 
S1 = oCellRange.rangeAddress.startColumn
Z1 = oCellRange.rangeAddress.startRow
SL = oCellRange.rangeAddress.EndColumn
ZL = oCellRange.rangeAddress.EndRow

Next n

Code: Alles auswählen

ThisComponent.currentController.select( oCellRange )
oCellRange = ThisComponent.getCurrentSelection()
 
S1 = oCellRange.rangeAddress.startColumn
Z1 = oCellRange.rangeAddress.startRow
SL = oCellRange.rangeAddress.EndColumn
ZL = oCellRange.rangeAddress.EndRow