OpenOffice.info

Hallo,

vielen Dank für die Antworten. Funktioniert jetzt einwandfrei!

MfG
Markus

Hallo,

[quote="balu"]
[quote="theindless"]Wenn ich diese mit Strg+C/Strg+V um eine Zeile nach unten kopiert hatte, hat es funktioniert.[/quote]
Und ich hatte sie kopiert, und dann wahllos in diverse andere Zellen einzeln eingefügt. Und da gabs keine Probleme.[/quote]
So war meins auch gemeint :oops: .... wenn ich in eine einzelne Zelle hineinkopiere, klappte es...

[quote="balu"]Sorry, nicht verstehn.[/quote]
Gemeint war nach Strg+C mehrere Zeilen zu markieren und Strg+V zu drücken.

Manchmal ist schon schwer zu schreiben, was man(n) meint :lol:

theindless

Hallo Leute,

[quote="Karolus"]
Die Funktion ist gar nicht von mir, die entstammt [url=http://de.openoffice.info/viewtopic.php?f=18&t=40230&p=148861&hilit=zeilenh#p148861]Winfrieds[/url] Feder.
[/quote]
Oh wie schmerzlich Peinlich! Da hatte ich gestern abend vor lauter Kreuzschmerzen etwas durcheinander geworfen. Sogar doppel Peinlich, da der Thread von mir stammte. Entschuldigung. :oops:


[quote="theindless"]
Wenn ich diese mit Strg+C/Strg+V um [u]eine[/u] Zeile nach unten kopiert hatte, hat es funktioniert.
[/quote]
Und ich hatte sie kopiert, und dann wahllos in diverse andere Zellen [u]einzeln[/u] eingefügt. Und da gabs keine Probleme.


[quote="theindless"]
Wenn ich diese mit Strg+C/Strg+V in [u]mehrere[/u] Zeilen nach unten kopiert hatte, dann nicht.
[/quote]
Sorry, nicht verstehn.


[quote="theindless"]
Wenn ich Sie mit der Maus "nach unten gezogen" hatte, dann hatte es nicht funktioniert.
[/quote]
Bestätige ich. WinXP OOo 3.2.1 & 3.3.0 & AOO 3.4.0


[quote="Karolus"]
[quote]Und nun noch das ganze für die Spaltenbreite.[/quote]
Für die Spaltenbreite gibts die "eingebaute" Funktion:
[code]=ZELLE("Width") [/code]
allerdings verwendet die eine [u][i]andere[/i][/u] Masseinheit
[/quote]
Und da habe ich eben noch nicht herausgefunden auf was die beruht. Ich dachte das dies ein Excel kompatibles Maß ist, was aber nicht der Fall ist. Aber das soll ja jetzt wohl keine Rolle spielen, oder!? [i](***)[/i]


[quote="Karolus"]
trotzdem muss ich etwas korrigieren:
In der Funktionssignatur steht: [color=#FF4000]aktZeile as LONG[/color] sinnvoller wäre: [color=#008000]aktZeile as INTEGER[/color]
[/quote]
Hast Recht. Es ist sinnvoller, und ich hab das gleich bei mir dementsprechend für beide geändert. Danke für den Hinweis.



Gruß
balu


[edith]
[i](***)[/i] Das ist wohl die Anzahl an Zeichen die in eine Zelle ohne Umbruch und Überlauf passen.
[/edith]

=ZELLE("Width") 

Hallo
Die Funktion von Markus gibt bei jeder Neuberechnung die Höhe der gerade [b]aktuellen[/b] Selektion aus - völlig unabhängig davon in [b]welcher[/b] Zelle die Funktion steht.

[quote]Und nun noch das ganze für die Spaltenbreite.[/quote]
Für die Spaltenbreite gibts die "eingebaute" Funktion:
[code]=ZELLE("Width") [/code]
allerdings verwendet die eine [u][i]andere[/i][/u] Masseinheit

Ps. Laut Balu ist die Funktion von mir, trotzdem muss ich etwas korrigieren:
In der Funktionssignatur steht: [color=#FF4000]aktZeile as LONG[/color] sinnvoller wäre: [color=#008000]aktZeile as INTEGER[/color]

PPs. Die Funktion ist gar nicht von mir, die entstammt [url=http://de.openoffice.info/viewtopic.php?f=18&t=40230&p=148861&hilit=zeilenh#p148861]Winfrieds[/url] Feder.

Karo

Hallo,

@balu
ich hatte die Funktion von Markus auch getestet und diese hat nur eingeschränkt funktioniert.

Wenn ich diese mit Strg+C/Strg+V um [u]eine[/u] Zeile nach unten kopiert hatte, hat es funktioniert.
Wenn ich diese mit Strg+C/Strg+V in [u]mehrere[/u] Zeilen nach unten kopiert hatte, dann nicht.
Wenn ich Sie mit der Maus "nach unten gezogen" hatte, dann hatte es nicht funktioniert.

getestet mit
Windows Vista und OpenOffice 3.3.0

theindless

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

=ZEILENH(TABELLE();ZEILE())

Function SPALTEB( aktTabelle as INTEGER, aktSpalte as LONG )
SPALTEB = ThisComponent.Sheets().getByIndex( aktTabelle - 1 ).Columns().getByIndex( aktSpalte - 1 ).Width
End FUNCTION

=SPALTEB(TABELLE();SPALTE())

Hallo Markus,

könnte es vielleicht sein das Du noch die Tastenkombi "Strg" & "Shift" & "F9" drücken musst?
Ansonsten kann ich dir eine Alternative anbieten, die von unserem Forummitglied Karolus stammt.
[code]
Function ZEILENH( aktTabelle as INTEGER, aktZeile as LONG )
ZEILENH = ThisComponent.Sheets().getByIndex( aktTabelle - 1 ).Rows().getByIndex( aktZeile - 1 ).Height
End FUNCTION
[/code]
Aufgerufen wird sie dann wie folgt, und zwar genau so wie sie da steht.
[code]
=ZEILENH(TABELLE();ZEILE())
[/code]


Und nun noch das ganze für die Spaltenbreite.
[code]
Function SPALTEB( aktTabelle as INTEGER, aktSpalte as LONG )
SPALTEB = ThisComponent.Sheets().getByIndex( aktTabelle - 1 ).Columns().getByIndex( aktSpalte - 1 ).Width
End FUNCTION
[/code]
[code]
=SPALTEB(TABELLE();SPALTE())
[/code]

Am besten fügst Du die beiden Functionen in einem Modul in "[Meine Makros & Dialoge].Standard" ein.

Halt Stop!
Ich habe mal eben deine Function in die eben genannte Bibliothek in ein Modul eingefügt und kann keine Probleme feststellen. Dein beobachtetes Fehlverhalten kann ich nicht reproduzieren. OOo 3.2.1 und AOO 3.4.0



Gruß
balu

Function ufgetZeilenhoehe As Long
Dim oDoc As Object    
oDoc = ThisComponent  
If oDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
   ufgetZeilenhoehe = oDoc.getCurrentSelection().getRows().height
End If
End Function

Hallo,

habe folgende Funktion zur Ausgabe der Höhe einer Zeile in eine Zelle geschrieben:
(AOO 3.4)
[code]
Function ufgetZeilenhoehe As Long
Dim oDoc As Object
oDoc = ThisComponent
If oDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
ufgetZeilenhoehe = oDoc.getCurrentSelection().getRows().height
End If
End Function
[/code]
Wenn ich den Funktionsaufruf (=ufgetZeilenhoehe()) nun einzeln in eine Zelle einer Zeile einfüge wird das richtige Ergebnis zurückgeliefert. Kopiere ich eine Zelle die den Funktionsaufruf beinhaltet in mehrere Zellen untereinander, erscheint immer das gleiche Ergebnis, egal wie hoch die Zeilen sind, in die einkopiert wird. Meiner Meinung müsste dies an "getCurrentSelection" liegen, da die Funktion immer die Zelle (Zeile) zugrunde liegt, von der wegkopiert und nicht die Zelle (Zeile) in die einkopiert wird.
Gibt eine Möglichkeit dies zu lösen?

MfG
Markus