Zeilen zählen

[erikafuchs]

Hallo Ihr Lieben,
der Aufruf

Code: Alles auswählen

   n=inSheet.Rows.count

gibt das Ergebnis 65536. Das ist, glaube ich die maximale Zeilenzahl in Calc. Ich möchte aber nur die Zeilen "mit Inhalt" zählen. Was mache ich falsch?
Grüße von
Pit

[Koala]

Du musst erst den Bereich auswählen/markieren, dessen Anzahl du haben möchtest.
z.B. so:

Code: Alles auswählen

Sub Main
    ' Startposition fuer CellRangeByPosition festlegen
    CRBP_L = 0 ' CellRangeByPosition Links		Spalte A
    CRBP_O = 0 ' CellRangeByPosition Oben		Zeile 1

    oSheet = thisComponent.sheets(0)

    oCellCursor = oSheet.createCursor()
    oCellCursor.GotoEndOfUsedArea(True) ' markieren gesammten Bereich
    CRBP_R = oCellCursor.getRangeAddress.EndColumn 
    CRBP_U = oCellCursor.getRangeAddress.EndRow
    oSrcRange = oSheet.getCellRangeByPosition(CRBP_L,CRBP_O, CRBP_R, CRBP_U)

    AnzahlZeilen = oSrcRange.Rows.count
    AnzahlSpalten = oSrcRange.Columns.count
   
    msgbox " Zeilen: " & AnzahlZeilen & "  Spalten: " & AnzahlSpalten
End Sub

[erikafuchs]

Liebe/r Koala,
vielen Dank!
Ich habe das jetzt allerdings noch gekürzt auf:

Code: Alles auswählen

   oCellCursor = inSheet.createCursor()
   oCellCursor.GotoEndOfUsedArea(True)
   inEndZeile = oCellCursor.getRangeAddress.EndRow

So long Pit