Jede vierte Zelle addieren

[Toxitom]

Hey Jim,

hmm, also ob du dieses Problem wirklich mit Formeln lösen kannst.... da bin ich skeptisch.

Einfacher wäre es, sich eine eigene Funktion zu schreiben und die dann aufzurufen.

Einziger Nachteil: sie aktualisiert sich nicht automatisch. Dazu musst du Strg + Umschalt + F9 drücken - dann aber funktioniert alles einwandfrei.

Ein Beispielcode:

Code: Alles auswählen

function mySumme(ze)
	iZe = Val(ze) - 1
	oDoc = thisComponent
	oSheet = oDoc.sheets(0)
	for i= 3 to 240 step 4
	    summe = summe + oSheet.getCellbyPosition(i, iZe).value
	next
	mySumme = summe
end function

du rufst die Funktion dann in der Zell A1 wie folgt auf:

Code: Alles auswählen

=MYSUMME(1)

Also, die Zeilennummer wird übergeben.
Funktioniert natürlich nur, wenn du auch das erste Tabellenblatt nutzt. Sonst musst du den Code entsprechend anpassen oder einen zweiten Parameter übergeben,welcher das Blatt repräsentiert.

Gruss
Thomas

[1.ray]

Hi Jim

Vielleicht gehts so:

Markiere A1.Klicke auf Summensymbol,
dann klicke in alleZellen, die Du addieren willst,
in Deinem Fall in jeder 4. Spalte (Ich hoffe, Deine Tabelle hat nicht zu viele Spalten)
Dann schreibst Du +1 dazu und bestätigst mit enter.

Jetzt klickst Du A1 nochmal an und ziehst mit dem Mauszeiger die rechte unter Ecke nach unten, sodass ein roter Rahmen um A1 bis FZ1 entsteht.
Das ist die Ausfüllfunktion, die dann die erstellte Formel für alle Zeilen an- passt.

Mit freundlichen Grüßen
1.ray