10.3.31 GetSelTyp
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