openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Tauber <taub...@aon.at>
Subject Re: Anzahl markierter Zeilen
Date Mon, 23 Jul 2012 13:37:18 GMT

>> Gibt es eine Möglichkeit die markierte Zeilenanzahl "just in time"
>> angezeigt zu bekommen?
> Ja, z.B. verwende ein Makro.
> In neueren Versionen (ab OOo 3.3?) reicht es über den Tabellenreiter unter
> Tabellenereignisse...-Auswahl geändert, z.B. das folgende Makro zuzuweisen um die
> Zeilenanzahl in der Titelzeile anzuzeigen:
>
> Sub markierte_Zeilen()
>    On Error resume Next
>    x = ThisComponent.GetCurrentSelection
>    With x.RangeAddress
>      ra_z_start = .StartRow
>      ra_z_ende = .EndRow
>    End With
>    Zeilenzahl = ra_z_ende - ra_z_start + 1
>    txt = Split(ThisComponent.CurrentController.Frame.title, "###")
>    ThisComponent.CurrentController.Frame.title = txt(0) & "###" & Zeilenzahl
> End sub
>
> Mögliche 'Ausschmückungen' des Makros, z.B. ergonomisch bessere Anzeige und ggf.
> generelle Verfügbarkeit, überlasse ich Deiner Phantasie.
> Gruß
> Jörg
>
Hi Jörg!
Danke für diese Idee, funktionierte auf Anhieb und ist genau das was ich 
gesucht hatte.
Sollte ich gravierende Änderungen am Programm vornehmen, poste ich es hier.
lg
Reinhard Tauber

---------------------------------------------------------------------

Abmelden von der Mailingliste: ooo-users-de-unsubscribe@incubator.apache.org 
Informationen: http://www.openoffice.org/de/

To unsubscribe, e-mail: ooo-users-de-unsubscribe@incubator.apache.org
For additional commands, e-mail: ooo-users-de-help@incubator.apache.org


Mime
View raw message