Matrix automatisch füllen

Thomas · 2006-11-03T14:17:22+00:00

Hallo,ich brauch mal eure Hilfe. ich habe in einer Spalte( z.b. A:) Werte.Die Grösse dieser Matrix ist nicht immer gleich. die nächste Spalte(also B:) soll automatisch mit den Mittelwerten aufgefüllt werden und zwar in der Form: in der vorletzten Zeile von B: steht der Mittelwert der letzten drei Werte von A:, darüber der Mittelwert der letzten 5 Werte von A: , in der darüber der Mittelwert der letzten 7 Werte von A: usw. Bei z.B. 501 A:-Werten erhält man also 251 B:-Werte. Es müsst also erst die Länge von Matrix A ermittelt werden und dann die automatische Füllung von B durchgeführt werden. Vielleicht kann mir jemand bei dem VBA-code helfen Danke Thomas

Hallo Thomas,
du kannst das auch mit Formeln erledigen:

	A	B	C	D
1	1	9	9	9
2	2	12	12	12
3	4	16,3333333	16,3333333	16,3333333
4	7
5	11
6	16
7	22

Formeln der Tabelle

Zelle	Formel
C1	=WENN(ZEILE()>ANZAHL(A:A)/2;"";MITTELWERT(INDIREKT("A"&2*ZEILE()-1&":"&"a"&ANZAHL(A:A))))
D1	=WENN(ZEILE()>(ANZAHL(A:A)-1)/2;"";MITTELWERT(INDIREKT("A"&2*ZEILE()-1+REST(ANZAHL(A:A)+1;2)&":"&"a"&ANZAHL(A:A))))
C2	=WENN(ZEILE()>ANZAHL(A:A)/2;"";MITTELWERT(INDIREKT("A"&2*ZEILE()-1&":"&"a"&ANZAHL(A:A))))
D2	=WENN(ZEILE()>(ANZAHL(A:A)-1)/2;"";MITTELWERT(INDIREKT("A"&2*ZEILE()-1+REST(ANZAHL(A:A)+1;2)&":"&"a"&ANZAHL(A:A))))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Spalte B wurde durch ein Makro ausgefüllt:

Option Explicit
Sub Mittelwerte2()
Dim Anz As Long, ii As Long, j As Long, zz As Long, nn As Long, sum As Double
Anz = [A65536].End(xlUp).Row ' sollte ungerade sein (sonst bleibt A1 unberücksichtigt)
sum = Cells(Anz, 1)
nn = 3
ii = Anz - 1
zz = ii / 2 - 0.1
Columns(2).ClearContents
While ii > 1
sum = sum + Cells(ii, 1) + Cells(ii - 1, 1)
Cells(zz, 2) = sum / nn
ii = ii - 2
nn = nn + 2
zz = zz - 1
Wend
End Sub

Was soll eigentlich passieren (mit A1), wenn in A eine gerade ANzahl Zellen gefüllt ist?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Thomas,
jetzt fangen B und C in der letzten Zeile an:

	A	B	C
1	1
2	2
3	4
4	8	12,4	12,4
5	16	18,6666667	18,6666667
6	32	32	32

Formeln der Tabelle

Zelle	Formel
C1	=WENN((ZEILE()<=ANZAHL($A:$A)/2)+(ZEILE()>ANZAHL($A:$A))>0;""; MITTELWERT(BEREICH.VERSCHIEBEN($A$1;2(ZEILE()-ANZAHL($A:$A)/2)-1;;2(ANZAHL($A:$A)-ZEILE())+1)))
C2	=WENN((ZEILE()<=ANZAHL($A:$A)/2)+(ZEILE()>ANZAHL($A:$A))>0;""; MITTELWERT(BEREICH.VERSCHIEBEN($A$1;2(ZEILE()-ANZAHL($A:$A)/2)-1;;2(ANZAHL($A:$A)-ZEILE())+1)))

Und hier der Code für Spalte B:

Sub Mittelwerte4()
Dim Anz As Long, ii As Long, zz As Long, nn As Long, sum As Double
Columns(2).ClearContents
Anz = [A65536].End(xlUp).Row              ' wenn ungerade, bleibt A1 unberücksichtigt
nn = 1
ii = Anz
zz = Anz
While ii > 1
sum = sum + Cells(ii, 1) + Cells(ii + 1, 1)
Cells(zz, 2) = sum / nn
ii = ii - 2
nn = nn + 2
zz = zz - 1
Wend
End Sub

zz=ii/2-0.1 sollte die Rundung richtigstellen. VBA wandelt ii/2 in eine ganze Zahl um (wie per CLng())
und rundet dabei nicht so wie ich es brauchte.
Schau mal in der VBA-Hilfe bei CLng und probier mal (auf einem leeren Blatt) aus:

Sub rund()
Dim ii As Long, zz As Long
For ii = 1 To 11
zz = ii / 2 - 0.1
Cells(ii, 7) = zz
zz = ii / 2
Cells(ii, 8) = zz
zz = CLng(ii / 2)
Cells(ii, 9) = zz
Next
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

A	B
1	15,714
2	20,800
4	23,667
8	33,000
16
32
64

Forumthread: Matrix automatisch füllen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial