auf markierte Bereiche prüfen

[clag]

Moin Kenner und Könner,

wie prüft man am besten/zuverlässigstem mit Baisc Code, ob mehrere Bereiche ausgewählt sind ?
wenn es relevant ist, ob ein oder mehrere Bereiche markiert sind.

Ein Indikator ist thisComponent.CurrentSelection.Count , der steht leider aber nur zur Verfügung wenn
tatsächlich mehrere Bereiche ausgewählt sind und man muss das mit On Error Resume Next abfangen,

Code: Alles auswählen

  nRanges = 1	
  On Error Resume Next
  nRanges = oCalc.CurrentSelection.Count

schöner sieht diese Version aus, aber irgendwie gefällt es mir nicht ein Fehlerereignis derart zu verwenden


Ein anderer Indikator wäre thisComponent.Currentselection.absoluteName ist immer verfügbar,

Code: Alles auswählen

  if InStr(oCalc.Currentselection.absoluteName,";") > 1 then 
    nRanges = oCalc.CurrentSelection.Count
  else
    nRanges = 1
  end if

aber diese Variante stützt sich eben nur auf das Nebenprodukt ";"

Welche der Varinaten wär zu bevorzugen und warum oder gibt es noch weitere Möglichkeiten?

[Karolus]

Code: Alles auswählen

doc = thisComponent
selection = doc.CurrentSelection
selection.supportsService("com.sun.star.sheet.SheetCell" ) 'nur Einzelne Zelle'
selection.supportsService("com.sun.star.sheet.SheetCellRanges" ) 'nur Mehrere Zellen|Bereiche'
selection.supportsService("com.sun.star.sheet.SheetCellRange" ) 'ein rechteckigerBereich|Einzelne Zelle'

[clag]

Hallo Karolus,

besten Dank für die schnelle Antwort