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