Matrix automatisch mit Korrelation füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Thomas,
was immer Du mit Deiner Untersuchung beabsichtigst, ich hab's nicht verstanden, warum Du dafür eine VBA-Prozedur benötigst.
Natürlich hast Du in Deinem Beispiel in der Spalte C nicht die Ergebnmisse einer Korrelationberechnung angegeben, die ja nur zwischen -1 und +1 schwanken. So bekommst Du also jeweils in der Zeile i immer Nur die Aussage, ob der Folgewert B(i+1) gegenbüber den Referenzwer B(i) gestiegen ist (Ergebnis +1) oder aber gefallen ist (Ergebniswert -1), da Du ja den Zuwachs zwischen den Zelle B(i) und B(i+1) mit dem zwischen den Zellen A(i) und A(i+1) vegleichst.
mit den Grenzen, die Du für Deine Untesuchung vorgibst, könnte folgende IF-Klammerung die Zellen der Spalte C füllen:


=WENN(ODER(A18<16;ISTZAHL(B19)=FALSCH);"";KORREL(A2:A3;B2:B3))

Wenn Dir also die mit einer Bedingung arbeitenden Zellenformel nicht nutzt, dann kannst Du folgendses Makro einsetzen, wenn für alle Werte der der Spalte B ab der Zelle B16 die Vorzeichen der Veränderung errechnet werden sollen und in der Spalte C ausgegeben werden sollen:

Sub DirectionAll()
Dim rngData As Range
Range("C2:C" & ActiveSheet.Rows.Count).ClearContents
For Each rngData In Range("B16:B" & Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row - 1)
rngData.Offset(0, 1) = Sgn(rngData.Offset(1, 0) - rngData)
Next
End Sub

Möchstest Du hingengen mit Eingabe einer neuen Zahl in der Spalte B die berechnung für das Datenpaar erhalten, Di also z.B. Zelle B18 füllst und die Prozedur dann in C17 den Vorzeichenwert der Veränderung zwichen Zelle B17 und B18 schreibt, dann ist eine Makro für die Tabelle zu schreiben, dass zwar keine Schleife benötigt, jedoch andere Zusatzabfragen zur Untersuchung, ob eine eintrag in der Spalte B erfolgte und ob die Vorhergehende Zelle nach der Zeile 15 sich befindet und mit einem Wert gefüllt ist. diese Zusazarbeit habe ich mir gespart, zumal Du durchaus, bei überschaubaren Datenmengen, die "Geasamtbereichnung durchführen kanst, sobald eine Zelle der Spalte B verlassen wird.
Gruß,
Uwe

Hallo Thomas und Uwe,
zunächst eine klärende Info:
In Spalte B stehen spezielle Mittelwerte von Bereichen aus A:
B31 = Mittelwert(A31:A31)
B30 = Mittelwert(A29:A31)
B29 = Mittelwert(A27:A31)
...
B16 = Mittelwert(A1:A31) (wenn Anzahl ungerade wie 31)
B16 = Mittelwert(A2:A30) (wenn Anzahl ungerade wie 30)
Das war Thema in https://www.herber.de/forum/archiv/816to820/t816419.htm
Dort gibts auch ein Makro, das die Mittelwerte rechnet.
Die Korrelationen lassen sich zunächst einmal mit Formeln berechnen:

	A	B	C
1	67,35
2	68,00
3	66,25
4	65,05
5	65,55
6	65,70
7	66,00
8	66,50
9	67,05
10	67,30
11	66,55
12	66,50
13	67,55
14	67,15
15	66,10
16	67,25	66,8935484	0,46573128
17	67,45	66,8396552	0,47413342
18	66,35	66,9277778	0,51683882
19	68,50	67,0320000	0,50817076
20	68,20	67,1000000	0,59422388
21	68,15	67,0928571	0,63477471
22	67,50	67,1526316	0,78376799
23	67,05	67,1294118	0,79852730
24	67,20	67,1900000	0,78706526
25	66,90	67,2346154	0,74309806
26	66,80	67,0318182	0,81294598
27	67,00	66,8555556	0,85450848
28	66,80	66,7785714	0,90268988
29	66,60	66,7500000	0,96382346
30	66,15	66,6500000	1,00000000
31	67,20	67,2000000
32

Formeln der Tabelle

Zelle	Formel
B1	=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)))
C1	=WENN((B1="")+(B2="");"";KORREL( INDIREKT("A"&SUMME(ZEILE())&":A"&ANZAHL(A:A)); INDIREKT("B"&SUMME(ZEILE())&":B"&ANZAHL(A:A))))
B15	=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)))
C15	=WENN((B15="")+(B16="");"";KORREL( INDIREKT("A"&SUMME(ZEILE())&":A"&ANZAHL(A:A)); INDIREKT("B"&SUMME(ZEILE())&":B"&ANZAHL(A:A))))
B16	=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)))
C16	=WENN((B16="")+(B17="");"";KORREL( INDIREKT("A"&SUMME(ZEILE())&":A"&ANZAHL(A:A)); INDIREKT("B"&SUMME(ZEILE())&":B"&ANZAHL(A:A))))

Wenn wegen der Datenmenge die Spalte C per VBA mit Werten gefüllt werden soll, ginge das vermutlich via Evaluate.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Sub Spezial_MW_KORR() Dim maxR As Long, r As Long, r0 As Long Columns(2).Clear Columns(3).Clear maxR = Cells(Rows.Count, 1).End(xlUp).Row For r = maxR To maxR / 2 Step -1 If r = maxR / 2 Then r0 = 1 Else r0 = 2 * r - maxR ' Range("A" & r0 & ":A" & maxR).Select 'kann "entkommentiert werden, sodass der Bereich markiert wird Cells(r, 2) = Evaluate("Average(" & Range("A" & r0 & ":A" & maxR).Address & ")") 'Cells(r, 2) = MW If r < maxR Then Cells(r, 3) = Evaluate("Correl(" & Range("A" & r0 & ":A" & maxR).Address & "," & _ Range("B" & r0 & ":B" & maxR).Address & ")") End If Next r End Sub

Sub Spezial_MW_KORR2() Dim maxR As Long, r As Long, r0 As Long Columns("B:H").ClearContents maxR = Cells(Rows.Count, 1).End(xlUp).Row For r = maxR To maxR / 2 Step -1 If r = maxR / 2 Then r0 = 1 Else r0 = 2 * r - maxR Cells(r, 2) = Evaluate("Average(A" & r0 & ":A" & maxR & ")") If r < maxR Then Cells(r, 3) = Evaluate("Correl(A" & r & ":A" & maxR & "," _ & "B" & r & ":B" & maxR & ")") ' ab hier nur zum Schauen und Testen Cells(r, 5).Formula = "=Average(A" & r0 & ":A" & maxR & ")" If r < maxR Then Cells(r, 6).Formula = "=Correl(A" & r & ":A" & maxR & "," _ & "B" & r & ":B" & maxR & ")" If r < maxR Then Cells(r, 8).Formula = "=Correl(A" & r0 & ":A" & maxR & "," _ & "B" & r0 & ":B" & maxR & ")" Next r End Sub

Beliebteste Forumthreads (12 Monate)

Matrix automatisch mit Korrelation füllen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread