Hallo Jörg,
nochmals besten Dank! Deine zweite Version funktioniert bestens!
Falls Du die Problem mit der ersten Version untersuchen möchtest, dann schicke
ich DIr gerne meine Tabelle, aber das machen wir dann besser nicht über die
Mailing-Liste. Nur zur Info, es waren über 170 "named" Zellen verteilt Über
mehrere Tabellenblätter.
Danke,
Guido
On Tuesday 23 May 2006 10:51, Jörg Schmidt wrote:
> Hallo,
>
> Sorry, ist jetzt ein wenig auf die Schnelle, aber Du willst ja sicher
> noch eine Lösung finden
>
> Guido H. Dirkes schrieb:
> > - oo wird deutlich langsamer ;-(
>
> ein wenig könnte man das beschleunigen, müßte ich aber am konkreten
> Objekt testen
>
> > - falls der Name nicht existiert, wird das Ergebnis des
> > letzten Aufrufs
> > angezeigt
>
> naja, ich hatte keine Fehlerroutine integriert, könnte man tun
>
> > - Wenn ich die Tabelle schließe und wieder öffne, dann
> > beklagt sich OO indem
> > es das Macro Menu aufmacht und über Zeile
> > x = ThisComponent.NamedRanges.CreateEnumeration
> > klagt, dass "Unzulässiger Wert oder Datentyp. / Datentypen
> > unverträglich".
> > Leider macht er das für jeden Aufruf des Macros einmal....
>
> müßte ich auch erst testen
>
> Auf die Schnelle:
>
> *mache eine Hilfstabelle und gib ihr den Namen "Hilfstabelle"
> *lass dieses Makro laufen:
>
> Sub Main
> x = ThisComponent.NamedRanges.CreateEnumeration
> i = -1
> Do
> I = i + 1
> y = x.nextElement
>
> ThisComponent.Sheets().GetByName("Hilfstabelle").GetCellByPosition(0,i).
> String = y.Name
>
> ThisComponent.Sheets().GetByName("Hilfstabelle").GetCellByPosition(1,i).
> String = y.Content
> Loop While x.hasMoreElements
> End Sub
>
> *nun hast Du eine tabellarische Aufstellung der Bereiche in der
> Hilfstabelle
> *verwende jetzt statt:
>
> =SUMME(INDIREKT(ERSETZEN($C23;LÄNGE($C23)+1;1;"_Heat")))
>
> solche Ausdrücke:
>
> =SUMME(INDIREKT(SVERWEIS(ERSETZEN($C23;LÄNGE($C23)+1;1;"_Heat");Hilfstab
> elle.A1:B10;2;0)))
>
> beachte dabei den Bereich Hilfstabelle.A1:B10 hinreichend groß zu wählen
> das alles erfasst ist, er kann größer sein
>
> Das ist nun eine schnelle Beschreibung wie das per Hand geht, es wäre
> alles noch besser zu automatisieren, aber sag uns erstmal ob das Prinzip
> akzeptabel wäre.
>
>
>
> Gruß
> Jörg
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
---------------------------------------------------------------------------
Guido H. Dirkes Phone: +41 2 27 67 94 54
CERN Mobile:+41 7 64 87 53 50
Office 598 R-019 Fax : +41 2 27 66 94 17
---------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
