Multiplikation großer Datenmengen - Datenfelder?!

Christian · 2019-09-26T20:43:16+00:00

Guten Abend zusammen, ich komme gerade bei einem Problem nicht weiter und benötige die Hilfe von euch. Ich würde das ganze gerne mit Arrays/Datenfeldern in VBAlösen. Ich möchte für 246 Zeilen und 5 Spalten jeweils einen Wert pro Zeile errechnen. Dieser einzelne Wert setzt sich zusammen aus. w = Gewicht Asset r = Rendite Asset R = w1*r1 + w2*r2 + w3*r3 + w4*r4 + w5*r5 Die Daten für (w1-5) liegen im Bereich C14:G259 vor und die Daten für (r1-5) liegen im Bereich B5:B250 eines anderen Tabellenblattes vor. Wie bereits oben beschrieben würde ich dieses Problem gerne per VBA lösen, da im späteren Verlauf die anzahl der Gewichte respektiv der Renditen erhöht/reduziert werden sollen. Über Anregungen bzw. Hilfe würde ich mich freuen. Einen vernünftige Code dafür habe ich noch nicht zustande bekommen. Da mir dafür der Ansatz fehlt. Beste Grüße Christian

Hallo Christian,
das könnte z.B. so aussehen (Ergebnis wird in das separate Blatt "Ergebnis" geschrieben):

Sub Multiplikation()
Dim i As Long
Dim produkt As Double
Dim varG As Variant
Dim varR As Variant
Dim wb As Workbook
Dim wsE As Worksheet
Dim wsG As Worksheet
Dim wsR As Worksheet
Dim zeileE As Long
Dim zeileG As Long
Dim zeileR As Long
Set wb = ThisWorkbook
Set wsE = wb.Worksheets("Ergebnis")
Set wsG = wb.Worksheets("Gewicht")
Set wsR = wb.Worksheets("Rendite")
zeileE = 2
zeileG = 14
zeileR = 5
For i = 1 To 246
zeileG = i + 13
zeileR = i + 4
zeileE = i + 1
varG = wsG.Cells(zeileG, "C").Resize(, 5)
varR = wsR.Cells(zeileR, "B").Resize(, 5)
produkt = WorksheetFunction.SumProduct(varG, varR)
wsE.Cells(zeileE, "A") = produkt
Next i
End Sub

https://www.herber.de/bbs/user/132225.xlsm
Viele Grüße
Dieter

Hallo onur und alle anderen hier im Forum,
ich habe nun deinen Code bei mir eingebaut, funktioniert natürlich super! Danke dir.
Nun hätte ich noch eine Erweiterung bei der du/ Ihr mir ggf. auch helfen könnt.
Ich würde gerne das ganze dynamisch gestalten.
Dies bedeutet, das die Zeilen und Spaltenanzahl der zwei Bereich sich verändern kann, je nachdem wie viele Datenreihen ich betrachte. Die Zeilen und Spalten sind immer gleich.
Es sind jedoch immer mindestens 2 Spalten pro Bereich ( Gewichte, Renditen).
Ich habe deinen Code schonmal etwas umgeschrieben und die zeilenanzahl dynamisch gestaltet. Nun müssen noch die Spalten dynamisch sein.
Für mich stellt sich hier nur die Frage:
Wie lässt sich der Array Erp(i) ermitteln. Dieser wird ja nach folgender Formel ermittelt:
R = w1*r1 + w2*r2 + w3*r3 + w4*r4 + w5*r5
Und wenn ich nun nur 2 Spalten betrachte, fallen ja die w3*r3 bis w5*r5 weg.
Hier mal mein überarbeitetr Code.

 

Sub Portfoliorendite()
Dim Pr As Worksheet
Dim rg As Range
Dim Zeilen As Integer
Set Pr = ThisWorkbook.Worksheets("Portfoliorendite")
Dim w, r, ERp() As Double
Dim i As Long
Set rg = Range("C14").CurrentRegion
Zeilen = rg.Rows.Count
w = Pr.Range("C14").CurrentRegion.Value
r = Pr.Range("I14").CurrentRegion.Value
ReDim ERp(1 To Zeilen)
For i = 1 To Zeilen
ERp(i) = w(i, 1) * r(i, 1) + w(i, 2) * r(i, 2) + w(i, 3) * r(i, 3) + w(i, 4) * r(i, 4)  _
+ w(i, 5) * r(i, 5)
Next i
End Sub


Beste Grüße Christian

Multiplikation großer Datenmengen - Datenfelder?!

Forumthread: Multiplikation großer Datenmengen - Datenfelder?!

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Multiplikation großer Datenmengen - Datenfelder?!

Forumthread: Multiplikation großer Datenmengen - Datenfelder?!

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread