Array Berechnungen
20.04.2015 09:10:44
Enrico
ich muss in einer Tabelle ein paar Werte berechnen.
Als Array Neuling habe ich versucht dies mit einem Array zu tun.
Leider komm ich nicht wirklich vorwärts.
Die Daten liegen in folgendem Format vor.
A | C | 2
A | C | 2
A | D | 30
A | D | 30
B | C | 400
B | C | 400
B | D | 5000
B | D | 5000
Natürlich sind es deutlich mehr Daten und sortiert sind sie auch nicht.
Ziel ist es nun mittels Array von jeder Kombination (AC,AD,BC,BD) den Mittelwert aus Spalte 3 zu berechnen.
Als erstes müsste also jede vorhandene Kombination ermittelt werden, dann die Werte zugeordnet und am Ende der Mittelwert berechnet werden.
Klingt einfach ... aber ich komm nicht weiter.
Hab bisher im Forum gefunden wie ich die verschiedenen Kombinationen auslese.
Set Dic = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(myAR)
Dic(myAR(L, 1)) = 0
Next
myAR2 = Dic.keys
Wäre über ein paar Anregungen dankbar.
Mfg Enrico