Makros und Tools

GetSelTyp

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

Basic

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