LibreOffice-Forum

Code: Alles auswählen

function farbezaehlen(rng As Range)
   oDoc = thisComponent
   oSheet = oDoc.sheets(0) 'erstes Tabellenblatt
   oBereich = oSheet.getCellRangeByName(rng)
	x = 0
	y = 0
	'auslesen der Eckpunkte 
	iErsteSpalte = oBereich.rangeAddress.startColumn
	iErsteZeile = oBereich.rangeAddress.startRow
	iLetzteSpalte = oBereich.rangeAddress.EndColumn
	iLetzteZeile = oBereich.rangeAddress.EndRow 
	For l = 0 to iLetzteZeile-iErsteZeile
	  For m = 0 to iLetzteSpalte-iErsteSpalte
	    oCell=oBereich.getCellByPosition(m,l)
	    if oCell.IsCellBackgroundTransparent = false then 'zählt Zellen die nicht transparent sind
	     x = x + 1
	    end if
	  next m
	next l 
	Farbenzaehlen=x
End function 

Code: Alles auswählen

function farbezaehlen( rng as string )

   oDoc = thisComponent
   oSheet = oDoc.sheets(0) 'erstes Tabellenblatt
   oBereich = oSheet.getCellRangeByName(rng)
   'auslesen der Eckpunkte
   iErsteSpalte = oBereich.rangeAddress.startColumn
   iErsteZeile = oBereich.rangeAddress.startRow
   iLetzteSpalte = oBereich.rangeAddress.EndColumn
   iLetzteZeile = oBereich.rangeAddress.EndRow
   
   For irow = iErsteZeile to iletzteZeile
     For icol = iErsteSpalte to iletzteSpalte
       oCell=osheet.getCellByPosition( icol, irow )
       if not ocell.IsCellBackgroundTransparent  then 'zählt Zellen die nicht transparent sind
        x = x + 1
       end if
     next icol
   next irow
   Farbezaehlen = x
End function