Liefert für eine  aktuell markierten Bereich die Art des Bereiches zurück.

Function getSelTyp(oSel as Object) as integer

'  Rückgabe 1 = Zelle

'  Rückgabe 1 = Bereich

'  Rückgabe 1 = Mehrere Bereiche

     if oSel.supportsService("com.sun.star.sheet.SheetCell") then

        'Der Cursor ist einer Zelle

         getSeltyp=1

       elseif oSel.supportsService("com.sun.star.sheet.SheetCellRange") then

         ' Ein Bereich

         getSeltyp=2

       elseif oSel.supportsService("com.sun.star.sheet.SheetCellRanges") then

        'Mehrere Bereiche

        getSeltyp=3

   end if

end Function