Return-Path: X-Original-To: apmail-incubator-ooo-users-de-archive@minotaur.apache.org Delivered-To: apmail-incubator-ooo-users-de-archive@minotaur.apache.org Received: from mail.apache.org (hermes.apache.org [140.211.11.3]) by minotaur.apache.org (Postfix) with SMTP id 2F9D6D13F for ; Mon, 23 Jul 2012 13:37:53 +0000 (UTC) Received: (qmail 77587 invoked by uid 500); 23 Jul 2012 13:37:52 -0000 Delivered-To: apmail-incubator-ooo-users-de-archive@incubator.apache.org Received: (qmail 77411 invoked by uid 500); 23 Jul 2012 13:37:49 -0000 Mailing-List: contact ooo-users-de-help@incubator.apache.org; run by ezmlm Precedence: bulk List-Help: List-Unsubscribe: List-Post: List-Id: Reply-To: ooo-users-de@incubator.apache.org Delivered-To: mailing list ooo-users-de@incubator.apache.org Received: (qmail 77375 invoked by uid 99); 23 Jul 2012 13:37:48 -0000 Received: from athena.apache.org (HELO athena.apache.org) (140.211.11.136) by apache.org (qpsmtpd/0.29) with ESMTP; Mon, 23 Jul 2012 13:37:48 +0000 X-ASF-Spam-Status: No, hits=-0.0 required=5.0 tests=RCVD_IN_DNSWL_NONE,SPF_PASS X-Spam-Check-By: apache.org Received-SPF: pass (athena.apache.org: local policy) Received: from [195.3.96.112] (HELO email.aon.at) (195.3.96.112) by apache.org (qpsmtpd/0.29) with ESMTP; Mon, 23 Jul 2012 13:37:40 +0000 Received: (qmail 26368 invoked from network); 23 Jul 2012 13:37:15 -0000 X-Spam-Checker-Version: SpamAssassin 3.2.0 (2007-05-01) on WARSBL604.highway.telekom.at X-Spam-Level: Received: from 178-190-54-152.adsl.highway.telekom.at (HELO [10.0.0.1]) (aon.912246248.1@[178.190.54.152]) (envelope-sender ) by smarthub77.res.a1.net (qmail-ldap-1.03) with SMTP for ; 23 Jul 2012 13:37:15 -0000 Message-ID: <500D538E.5090808@aon.at> Date: Mon, 23 Jul 2012 15:37:18 +0200 From: Tauber User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20120614 Thunderbird/13.0.1 MIME-Version: 1.0 To: ooo-users-de@incubator.apache.org Subject: Re: Anzahl markierter Zeilen References: <500BE2AA.5060808@aon.at> In-Reply-To: Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 8bit X-Virus-Checked: Checked by ClamAV on apache.org >> 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