OpenOffice.info

Code: Alles auswählen

sub kopieren
 odoc = ThisComponent
        osheet = odoc.sheets(0)
        orange = osheet.getCellRangeByName("A1:M1")
        orangeAddress = orange.getrangeaddress
        odata()= orange.getdataarray
        oZielSheet = oDoc.sheets(1)
        c = oZielSheet.getCellRangeByName("A1:A12000").queryEmptyCells
        oZielCell = c(0).getcellbyposition(0,0)
        oZielCellAddress = oZielCell.getcelladdress
        X1=oZielCellAddress.column
        Y1=oZielCellAddress.row
        X2=oZielCellAddress.column+(orangeAddress.EndColumn-orangeAddress.StartColumn)
        Y2=oZielCellAddress.Row+(orangeAddress.EndRow-orangeAddress.StartRow)
        oZielrange=oZielSheet.getCellRangeByPosition(X1,Y1,X2,Y2)
        oZielrange.setdataarray(odata())

end sub

Code: Alles auswählen

Function NonEmptyCellsInRange(oRange, sep$) As String
Dim oCell 'Die zu verwendende Zelle.
Dim oRanges 'Die nach der Zellabfrage zurückgegebenen Bereiche.
Dim oAddrs() 'CellRangeAddress-Array der Adressen der Zellbereiche.
Dim oAddr 'Eine einzelne Bereichsadresse.
Dim oSheet 'Tabellenblatt, das den Zellbereich enthält.
Dim i As Long 'Indexvariable.
Dim nRow As Long 'Zeilennummer.
Dim nCol As Long 'Spaltennummer.
Dim s As String
REM Zuerst werden die Zellen im Bereich gesucht, die nicht leer sind.
REM Dabei wird eine Zelle als nicht leer betrachtet, die entweder
REM einen Wert, einen String, eine Formel oder Datum/Uhrzeit enthält.
oRanges = oRange.queryContentCells(_
com.sun.star.sheet.CellFlags.VALUE OR _
com.sun.star.sheet.CellFlags.DATETIME OR _
com.sun.star.sheet.CellFlags.STRING OR _
com.sun.star.sheet.CellFlags.FORMULA)
oAddrs() = oRanges.getRangeAddresses()
For i = 0 To UBound(oAddrs())
REM Eine spezifische Bereichsadresse.
oAddr = oAddrs(i)
For nRow = oAddr.StartRow To oAddr.EndRow
For nCol = oAddr.StartColumn To oAddr.EndColumn
oCell = oRange.Spreadsheet.getCellByPosition(nCol, nRow)
s = s & oCell.AbsoluteName & sep$
Next
Next
Next
NonEmptyCellsInRange = s
End Function

Code: Alles auswählen

Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
 
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(1,1)
 
Cell.Value = 1000
 
Select Case Cell.Type 
Case com.sun.star.table.CellContentType.EMPTY 
   MsgBox "Content: Empty"
[...]

Code: Alles auswählen

SUB de65977
' 20150701
' find empty cell in a row
' (not having a value, string or formula)

doc = ThisComponent
sheet = doc.Sheets.getByName("Tabelle2")
range = sheet.getCellRangeByName("A1:M1")

IF NOT IsNull(firstEmptyCellInRange(range)) THEN
   print firstEmptyCellInRange(range)
END IF 

END SUB



FUNCTION firstEmptyCellInRange(rng)

result = rng.queryEmptyCells()

IF result.hasElements() THEN
   firstEmptyCellInRange = result.ElementNames(0)
ELSE 
   firstEmptyCellInRange = Null
END IF

END FUNCTION

Code: Alles auswählen

Sub fuellen

 odoc = ThisComponent
 sheet = odoc.sheets(1)
   oStammSheet = ThisComponent.sheets.getByName("Tabelle2")
      With oStammSheet ' Letzte Zeile der Spalte AI,AJ,AK im 2. Tabellenblatt ermitteln
         x = .Columns("34:35").queryEmptyCells()
         iLetzteZeile = x(x.Count-1).RangeAddress.StartRow +1
      End With

         mycell = oStammSheet.getCellRangeByName("AI" & iLetzteZeile )
         mycell.FormulaLocal  = "=test"
 mycell = oStammSheet.getCellRangeByName("AJ" & iLetzteZeile )
         mycell.FormulaLocal  = "=test"
 mycell = oStammSheet.getCellRangeByName("AK" & iLetzteZeile )
         mycell.FormulaLocal  = "=test"
End Sub'

Code: Alles auswählen

range = sheet.getCellRangeByName("AI1:AI9999")

IF NOT IsNull(EmptyCellsInRange(range)) THEN

   addresses = EmptyCellsInRange(range)
   
   adr = addresses(0)
   cell = sheet.getCellByPosition(adr.StartColumn, adr.StartRow)
   cell.setString("Dies ist die erste leere Zelle in dieser Spalte (gewesen!)")   

END IF 


FUNCTION EmptyCellsInRange(rng)
' returns the first CellRange of empty cell(s) in given range

result = rng.queryEmptyCells()

IF result.hasElements() THEN
    EmptyCellsInRange = result.RangeAddresses(0)
ELSE 
    EmptyCellsInRange = Null
END IF

END FUNCTION

Code: Alles auswählen

Sub fuellen

 odoc = ThisComponent
 sheet = odoc.sheets(1)
   oStammSheet = ThisComponent.sheets.getByName("Tabelle2")
      With oStammSheet ' Letzte Zeile der Spalte AI,AJ,AK im 2. Tabellenblatt ermitteln
         x = .Columns("34:35").queryEmptyCells()
         iLetzteZeile = x(x.Count-1).RangeAddress.StartRow +1
      End With

         mycell = oStammSheet.getCellRangeByName("AI" & iLetzteZeile )
         mycell.FormulaLocal  = "=test"
 mycell = oStammSheet.getCellRangeByName("AJ" & iLetzteZeile )
         mycell.FormulaLocal  = "=test"
 mycell = oStammSheet.getCellRangeByName("AK" & iLetzteZeile )
         mycell.FormulaLocal  = "=test"
End Sub'