nur die zahlenwerte der matrizen addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jana,
mit einer Formel kann das wohl auch gehen, aber hier würde ich VBA bevorzugen.
Die Funktion MatrixAdd kannst du als Matrixfunktion direkt in der Tabelle einsetzen oder aber per
Aufruf eines Makros wie MatrAdd die Ergebnisse in einen Bereich schreiben lassen.
In diesem Beispiel hat MatrAdd die Ergebnismatrix in A4:L4 geschrieben:

	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	10	20	df	WAHR	40
2	FALSCH	2	4	6	sds	8
3
4	12	14	16	18	22	24	26	28	42	44	46	48		von Sub MatrAdd
5
6	12	14	16	18	22	24	26	28	42	44	46	48	#NV	Funktion

Formeln der Tabelle

Zelle	Formel
A6	{=MatrixAdd(A1:E1;A2:H2)}
B6	{=MatrixAdd(A1:E1;A2:H2)}
C6	{=MatrixAdd(A1:E1;A2:H2)}
D6	{=MatrixAdd(A1:E1;A2:H2)}
E6	{=MatrixAdd(A1:E1;A2:H2)}
F6	{=MatrixAdd(A1:E1;A2:H2)}
G6	{=MatrixAdd(A1:E1;A2:H2)}
H6	{=MatrixAdd(A1:E1;A2:H2)}
I6	{=MatrixAdd(A1:E1;A2:H2)}
J6	{=MatrixAdd(A1:E1;A2:H2)}
K6	{=MatrixAdd(A1:E1;A2:H2)}
L6	{=MatrixAdd(A1:E1;A2:H2)}
M6	{=MatrixAdd(A1:E1;A2:H2)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Und hier die Codes: Option Explicit Sub MatrAdd() Dim arr arr = MatrixAdd(Range("A1:E1"), Range("A2:G2")) Cells(4, 1).Resize(, UBound(arr, 2)) = arr End Sub Function MatrixAdd(rngA As Range, rngB As Range) Dim arrA, arrB, aa As Long, bb As Long, arrE() As Double Dim ii As Long, jj As Long, kk As Long arrA = rngA.Value For ii = 1 To UBound(arrA, 2) If Application.IsNumber(arrA(1, ii)) Then aa = aa + 1 ' Anzahl Zahlen in rngA arrA(1, aa) = arrA(1, ii) End If Next ii arrB = rngB.Value For ii = 1 To UBound(arrB, 2) If Application.IsNumber(arrB(1, ii)) Then bb = bb + 1 ' Anzahl Zahlen in rngB arrB(1, bb) = arrB(1, ii) End If Next ii ReDim arrE(1 To 1, 1 To aa * bb) ' Anzahl Ergebnis For ii = 1 To aa For jj = 1 To bb kk = kk + 1 arrE(1, kk) = arrA(1, ii) + arrB(1, jj) Next jj Next ii MatrixAdd = arrE End Function Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hi Jana,
danke für Deine Rückmeldung!
Nachdem du die VBA-Lösung zum Laufen gebracht hast: Es geht auch ohne VBA:

	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	10	20	df	WAHR	40
2	FALSCH	2	4	6	sds	8
3	12	14	16	18	22	24	26	28	42	44	46	48
4	12	14	16	18	22	24	26	28	42	44	46	48
5
6	3
7	4

Formeln der Tabelle

Zelle	Formel
A3	{=WENN(SPALTE()>$A6*$A7;""; INDEX(1:1;KKLEINSTE(WENN(ISTZAHL($A$1:$IV$1); SPALTE($A$1:$IV$1)); 1+KÜRZEN((SPALTE()-1)/$A7))) +INDEX(2:2;KKLEINSTE(WENN(ISTZAHL($A$2:$IV$2); SPALTE($A$2:$IV$2)); 1+REST(SPALTE()-1;$A7))))}
A4	{=WENN(SPALTE()>$A6*$A7;""; INDEX(1:1;KKLEINSTE(WENN(ISTZAHL(1:1); SPALTE(1:1)); 1+KÜRZEN((SPALTE()-1)/$A7))) +INDEX(2:2;KKLEINSTE(WENN(ISTZAHL(2:2); SPALTE(2:2)); 1+REST(SPALTE()-1;$A7))))}
A6	=ANZAHL(1:1)
A7	=ANZAHL(2:2)

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

A4 ist etwas kürzer als A3, aber evtl. langsamer. Und A4 läuft wohl nicht auf früheren XL-Versionen.
A6 und A7 dienen der Abkürzung - die Anzahlen kommen mehrfach vor, brauchen hier nur einmalig berechnet zu werden.
Schönes Wochenende allerseits!
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Option Explicit Sub MatrAdd2() Dim arr ' arr = MatrixAddZe(Range("A1:E1"), Range("A2:H2")) ' Cells(9, 1).Resize(, UBound(arr, 2)) = arr arr = MatrixAddSp(Range("A1:A51"), Range("B1:B8")) Cells(1, 4).Resize(UBound(arr)) = arr End Sub Function MatrixAddSp(rngA As Range, rngB As Range) Dim arrA, arrB, aa As Long, bb As Long, arrE() ' As Double Dim ii As Long, jj As Long, kk As Long arrA = rngA.Value For ii = 1 To UBound(arrA) If Application.IsNumber(arrA(ii, 1)) Then aa = aa + 1 ' Anzahl Zahlen in rngA arrA(aa, 1) = arrA(ii, 1) End If Next ii arrB = rngB.Value For ii = 1 To UBound(arrB) If Application.IsNumber(arrB(ii, 1)) Then bb = bb + 1 ' Anzahl Zahlen in rngB arrB(bb, 1) = arrB(ii, 1) End If Next ii ReDim arrE(1 To aa * bb, 1 To 1) ' Anzahl Ergebnis For ii = 1 To aa For jj = 1 To bb kk = kk + 1 arrE(kk, 1) = arrA(ii, 1) + arrB(jj, 1) ' arrE(kk, 1) = arrA(ii, 1) & "+" & arrB(jj, 1) Next jj Next ii MatrixAddSp = arrE End Function

Beliebteste Forumthreads (12 Monate)

nur die zahlenwerte der matrizen addieren

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nur die zahlenwerte der matrizen addieren

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread