diagonale Addition/Multiplikation

[Mondblatt24]

Hallo,

Geht das auch einfacher? So etwa(Summe=A15:C17)? Und geht so etwas auch mit den anderen Grundrechenarten?

=Summe(A15:C17)
mal ausprobiert?

Gruß Peter

[Mondblatt24]

Von weiteren Einträgen innerhalb der Matrix war keine Rede.

=Summe(A15;B16;C17)

[Stephan]

Klar!
Aber das gibt die Summe des gesamten Quadrates nicht der Diagonalen!

Und =Produkt(A15+B16) ergibt nur die Summe.

z.B. mit folgender Matrixformel:
{=SUMME(A1:C3*(ZEILE(A1:C3)=SPALTE(A1:C3)))}

siehe:
https://www.extendoffice.com/de/documen ... al.html#a1


Gruß
Stephan

[Mondblatt24]

Hab auch noch eine gefunden
http://www.excelformeln.de/formeln.html?welcher=88

[Mondblatt24]

Nun, kennst Du eine Lösung?

Da:
=SUMME(L56:Q61*(ZEILE(L56:Q61)=SPALTE(L56:Q61)))

kommt bei mir Null raus.(Treppe abwärts L56 bis Q61.

Ist eine Matrixformel mit Strg+Shift+Enter abschließen

[Stephan]

=SUMME(L56:Q61*(ZEILE(L56:Q61)=SPALTE(L56:Q61)))

ist schlicht keine Matrixformel und wird deshalb nicht wie gewünscht funktionieren.

Folge deshalb dem Ratschlag:

Ist eine Matrixformel mit Strg+Shift+Enter abschließen

oder setze den Haken bei Matrix im Assistenten:


Gruß
Stephan

[Stephan]

Ich komme auch mit Strg+Shift+Enter nur auf Null.

mutmaßlich weil Du versuchst eine bereits abgeschlossene Formel nachträglich erneut mit Strg+Shift+Enter abzuschliessen.

Wenn ja dann:
markiere die Zelle mit der Formel, lösche in der Rechenzeile die letzte KLammer der Formel, tippe diese Klammer nun per Tastatur gleich wieder ein und schliesse nun mit Strg+Shift+Enter ab.

Wie ist der Name der Funktion?

Abschliessen einer Matrixformel? (so würde ich es nennen)


Gruß
Stephan

[Stephan]

Geht das auch mit den anderen Grundrechenarten?

Dem Grunde nach nur mit Multiplikation, denn Subtraktion und Division sind doch nur sinnvoll mit jeweils zwei Zellen denkbar.

Eine Formel für Multiplikation finde ich auf die Schnelle nicht, evtl. muss man das mit einer benutzerdefinierten Funktion lösen, z.B. sollte gehen:

Code: Alles auswählen

Function diagonal_mult(SpalteLinkeZelle, ZeileLinkeZelle, SpalteRechteZelle, ZeileRechteZelle)
	With ThisComponent.CurrentController.ActiveSheet
		If ZeileLInkeZelle > ZeileRechteZelle Then
				'von links aufwärts nach rechts
				z = ZeileLinkeZelle
				s = SpalteLinkeZelle
				k = .getCellByPosition(s, z).Value
				Do While s < SpalteRechteZelle
					s = s + 1
					z = z - 1
					k = k * .getCellByPosition(s, z).Value
				Loop
			Else
				'von links abwärts nach rechts
				z = ZeileLinkeZelle
				s = SpalteLinkeZelle
				k = .getCellByPosition(s, z).Value
				Do While s < SpalteRechteZelle
					s = s + 1
					z = z + 1
					k = k * .getCellByPosition(s, z).Value
				Loop
		End If
	End With
	diagonal_mult = k
End function

und aufrufen mit:

=DIAGONAL_MULT(0;3;3;0)

für Multiplizieren der Diagonale A4:D1


Gruß
Stephan

[Stephan]

wie implementiere ich denn das makro?

benutzerdefinierte Funktionen müssen bei OO in der Bibliothek Standard abgelegt sein um zu funktionieren. Beispiel anhängend.


Gruß
Step

[Stephan]

Auch bei deinem Beispiel habe ich #Wert!

Wieso "auch"?

Vorher hattest Du #Name, was daran liegt das die Funktion nicht richtig abgelegt war, wenn Du jetzt #Wert hast dann ist die Ausführung von Makros deaktiviert. Aktiviere diese Unter Extras-Optionen-OpenOffice-Sicherheit-Makrosicherheit indem Du dort auf "niedrig" oder "mittel" stellst. Bei "mittel" kommt jedes Mal eine Nachfrage wo Du Makros zulassen musst, bei "niedrig" kommt keine Nachfrage.


Gruß
Stephan

[mikeleb]

Hallo,

Code: Alles auswählen

=SUMMENPRODUKT(L56:Q61;EINHEITSMATRIX(ZEILEN(L56:Q61)))

[mikeleb]

Hallo,
für das Produkt:

Code: Alles auswählen

=PRODUKT(MMULT((L56:Q61)*EINHEITSMATRIX(ZEILEN(L56:Q61));ZEILE(L56:Q61)/ZEILE(L56:Q61)))

Ergänzung:
oder auch so

Code: Alles auswählen

=PRODUKT(WENN(ZEILE(L56:Q61)-ZEILE(L56)=SPALTE(L56:Q61)-SPALTE(L56);L56:Q61;1))

[Stephan]

hi stephan:

Zeile 3 des Scripts:
Basic-Laufzeitfehler
Argument ist nicht optional

Die Beispieldatei funktioniert bei mir tadellos. Falls Du selbst die Formel geändert hast ist mutmaßlich ein Argument falsch, so wie es in der Fehlermeldung steht.



Gruß
Stephan

[Stephan]

Ich habe das script so von dir übernommen. Warum das dann nicht hinhaut???

Ich weiß nicht was es heißt wenn Du davon redest das Script zu übernehmen. Du musst die Datei öffnen und gut, es muss nichts gesondert übernommen werden.

Wie sieht denn der Aufruf der Funktion in der Zelle aus? Steht dort (in Zelle D11) weiterhin:

=DIAGONAL_MULT(0;5;5;0)

?


Gruß
Stephan

[Stephan]

Ergebnis ist weiterhin #WERT!

dann werden keine Makros ausgeführt.

Da beim Öffnen Makro-Viren-Möglichkeits-Meldung kam, habe ich in Extras/Einstellungen/OO/Sicherheit/Makrosicherheit die Sicherheitsstufe auf niedrig gesetzt.

Was nichts bewirkt, solange das Dokument nicht geschlossen und neu geöffnet wird.

F9-Taste brachte aber kein neues Ergebnis.

Kann es auch nicht, da die benutzerdefinierte funktion keinen direkten Bezug auf eine Zelle nimmt

verwende UMSCHALT + STRG + F9

Auch das wird natürlich nur funktionieren, wenn nach dem Ändern der Makro-Sicherheitseinstellung das Dokument geschlossen und neu geöffnet wurde



Gruß
Stephan