Calc: Summen-Formel setzen, Bereich erweitern

[Jona]

Servus,
hab da mal ein kleines Programm geschrieben...
bin allerdings absoluter Anfänger!
Wie kann ich zB unten bei
oZelle.Formula = "=Sum(B2^0;B3^0;B4^0;B5^0;B6^0;B7^0;B8^0)"
die Formel so umgestalten das dort nur B2^0 To B8^0 steht oder sowas in der Art.
Und wie kann ich das machen, dass die Formel sich Automatisch erweitert, wenn zB bei B9 und B10... auch Zahlen stehen (also die Tabelle beliebig groß wird)?

Code: Alles auswählen

Sub Test
Dim oCalcDokument as Object
Dim oTabellenblatt as Object
Dim oZelle as Object
oCalcDokument = ThisComponent
oTabellenblatt = oCalcDokument.Sheets(0)
oZelle = oTabellenblatt.getCellByPosition (4,1)
oZelle.Formula = "=Sum(B2^0;B3^0;B4^0;B5^0;B6^0;B7^0;B8^0)"

End Sub

Vielen Dank für eure Hilfe.



Moderation,4: verschoben in BASIC-Bereich, Betreff konkretisiert; bitte CODE-Tags verwenden

[Karolus]

Hallo
Was bitte willst du mit dieser kruden Formel berechnen ? - schreibe

Code: Alles auswählen

oZelle.Formulalocal = "=ANZAHL(B2:B10)"

oder vmtl.

Code: Alles auswählen

oZelle.Formula = "=count(B2:B10)"

das tut zumindest das gleiche wie deine Formel.

Gruß Karo

[Jona]

ich versuche eine Least squares approximation zu programmieren...
da ich vorher noch nie programmiert habe bin ich froh über jede Hilfe.

[Karolus]

Hallo
Dann möchtest du vielleicht die Werte aus Spalte B in einer neuen Spalte quadrieren, ( =B2^2 ) usw. und daraus die Summe bilden, oder zusammenfassend:

Code: Alles auswählen

=SUMMENPRODUKT(B2:B10;B2:B10)

Ich bezweifle aber daß dein Ansatz mit

...B2^0...

zielführend ist.

Gruß Karo