Zeilen zählen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zeilen zählen

Re: Zeilen zählen

von erikafuchs » Di, 30.11.2010 21:15

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

Re: Zeilen zählen

von Koala » Mo, 29.11.2010 09:37

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

Zeilen zählen

von erikafuchs » So, 28.11.2010 18:44

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

Nach oben