Letzte Zelle mit Inhalt ungleich ""

de-users
#1

Die Funktionen zum ermitteln der letzten Zelle finden nur die erste
Zelle die wirklich leer ist (UsedRange)
Ich will aber die letzte Zelle deren angezeigter Inhalt nicht "" ist.
Weil da z.B eine Formel drinsteht:
=WENN(ISTZAHL(C63);LOG(2)/LOG(M63);"")

Hat da jemand eine elegante Lösung?

#2

Hallo Bernd,

wo bist du denn gerade unterwegs? Im Makroschreiben, oder welche "Funktion" sprichst du an? Bitte genauere Angaben.

LG Günther

#3

Ja sorry :slight_smile:
Es geht um Calc und ein Makro.
Und hier um einen Datenbereich der täglich um eine Zeile anwächst.
Die Daten kommen aus einer CSV Datei die aus dem Netz geladen wird und
in den Spalten daneben etliche Spalten mit Formeln. Sie sind der
Datenbereich für etliche Diagramme.
Die Daten sind momentan nur ca 60 Zeilen lang. Die Formeln hab ich mal
bis zur Zeile 1000 runter kopiert.
Dafür will ich nun via Makro unter Anderem den Druckbereich setzen, der
aber nur die Zeilen einschliessen soll, die etwas sinnvolles enthalten.

Mittlerweile bin ich auch schon etwas weiter :slight_smile:
Zum Einen gibt es die function: queryContentCells (interface
XCellRangesQuery)
die als Parameter mir OR verkettete Flags erwartet. Dazu hab ich ein
Beispiel bei Andrew Pitonyak gefunden. (OOME_3_0_15.Calc_Documents.odt:
Function NonEmptyCellsInRange(oRange, sep$) As String)
Damit kann man festlegen, welche Inhalte man will.
Wenn man hier das Flag für Formeln weglässt, ist das Ergebnis das was
ich suche, mit der Einschränkung, dass man eine Liste _aller_
betroffenen Zellen erhält.
Ich will ja nur die letzte.

Meine momentane Lösung ist, dass ich eine Formel: '=anzahl(B5:1000)' in
eine Zelle ausserhalb des zu untersuchenden Bereichs schreibe ($AV$1)
anzahl() gibt mir die Anzahl der Zellen, die einen Wert enthalten.
Daraus kann ich nun
eine RangeAdress bauen und den Druckbereich setzen.
<https://pastebin.com/pSpBMgNs>

Wenn jemand eine bessere Lösung hat, bitte her damit :slight_smile:

#4

Hab genau das passende Werkzeug gefunden
com.sun.star.sheet.GeneralFunction.COUNTNUMS
Gibt die Anzahl der Zellen, die eine Zahl anzeigen, zurück

Weil in dem speziellen Fall wirklich nur Nummern oder "" in den Zellen
angezeigt werden,
ist das für mich die Lösung

Wenn auch text dort angezeigt wird ist wohl die Lösung in meiner letzten
Mail gefragt.

oSelektion = oSheet.getCellRangeByPosition(1,0,1,2000)
CountRows=oSelektion.computeFunction(com.sun.star.sheet.GeneralFunction.COUNTNUMS)

Aus der Doku: COUNTNUMS numerical values are counted.
Siehe
<https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1sheet.html#ad184d5bd9055f3b4fd57ce72c781758d>