OpenOffice.info

Moin Winfried,

ah ja, jetzt versteh ich was Du meintest. Da hast Du natürlich auch recht. Danke für die zusätzliche Info.


Wünsch dir noch nen schönen Tag :D.
balu

[quote="balu"]Brauche ich eigentlich nicht da mir das 1. Blatt ausreichen würde, aber dennoch lass ich es so.[/quote]

Brauchst Du im Moment vielleicht nicht....


Solche Funktionen gehören in die STANDARD-Bilbliothek der OOo-Installation (nicht in einer Calc-Datei speichern) - dann stehen sie allen Tabellen zur Verfügung.
Und durch die Mitgabe des Tabellenblatts funktioniert das Ding dann auch auf anderen Blättern - wenn mal benötigt.


Viel Spass mit OOo noch :)

Moin Winfried,

[quote]
Du solltest die aktuelle Tabelle mitgeben, damit die Formel "überall" funktioniert
[/quote]
Brauche ich eigentlich nicht da mir das 1. Blatt ausreichen würde, aber dennoch lass ich es so.


[quote]
Das war's?
[/quote]
Ja. Das wars schon. Mehr wollte ich nicht, und ich bin Happy. Danke dir recht Herzlich :D.


Gruß
balu

=ZEILENH(TABELLE(); ZEILE())

Function ZEILENH( aktTabelle as INTEGER, aktZeile as LONG )
ZEILENH = _
 ThisComponent.Sheets().getByIndex( aktTabelle - 1 ).Rows().getByIndex( aktZeile - 1 ).Height
End FUNCTION

Aufruf mit der Formel
[code]=ZEILENH(TABELLE(); ZEILE())[/code]

(Du solltest die aktuelle Tabelle mitgeben, damit die Formel "überall" funktioniert)


Der Funktionscode sieht dann so aus:
[code]
Function ZEILENH( aktTabelle as INTEGER, aktZeile as LONG )
ZEILENH = _
ThisComponent.Sheets().getByIndex( aktTabelle - 1 ).Rows().getByIndex( aktZeile - 1 ).Height
End FUNCTION[/code]


Das war's?

Function ZEILEH '(ZEILE)
   myDoc = thisComponent
   mySheet = myDoc.Sheets(0)
   ZEILEH = mysheet.Rows(0).height
End Function

oZelle=oDoc.getCurrentSelection()

   ZEILEH = mysheet.Rows(oZelle).height

=ZEILEH(ZEILE(A1))

Hallo Leute,

verzeiht wenn ICH euch mit einer lapalie belästige, aber ich kriegs nicht auf die Reihe die Zeilenhöhe als Function auszulesen. Na ja, stimmt nicht ganz. Ich schaffe es wohl die 1. Zeilenhöhe auszulesen, aber die Parameteranpassung damit ich auch die anderen Zeilenhöhen bekomme, ist mir ein schleierhaftes Rätsel.
Mein aktueller Code für die 1. Zeile:
[code]
Function ZEILEH '(ZEILE)
myDoc = thisComponent
mySheet = myDoc.Sheets(0)
ZEILEH = mysheet.Rows(0).height
End Function
[/code]
Versuche mit
[code]
oZelle=oDoc.getCurrentSelection()

ZEILEH = mysheet.Rows(oZelle).height
[/code]
brachten bisher keinen Erfolg sondern nur ne Fehlermeldung. "Objektvariable nicht belegt".

Aufrufen tue ich momentan mit
[code]
=ZEILEH(ZEILE(A1))
[/code]
Aktualisieren tue ich natürlich mit "Strg" + "Shift" + "F9"

Wie muss also der Code richtig aussehen, damit die Function mir in jeder x-beliebigen Zeile die Zeilenhöhe ausgibt?

Ich bedanke mich schon mal für eure Bemühungen :D.


Gruß
balu


p.s.
Ja, die Forensuche hatte ich bemüht, aber schlußendlich hatte ich nur noch Chinesisch gelesen :(.