Alle möglichen Portfolio Gewichtungen mit Excel

[Sincenox]

Hallo Bernd,


Wow, das ist super. Genau das, was ich gesucht habe!!! Vielen Dank!

Eine Frage noch, wenn ich die Anzahl der Aktien verringere - beispielsweise nur noch3 Aktien- muss das Makro dann umcodiert werden?
Wenn diese Funktion noch dabei wäre - dass man auch die Anzahl der Aktien verringern oder im möglichen noch leicht erhöhen kann - das wäre einfach zu klasse.

[Sulprobil]

Siehe Anlage, wie immer ohne Gewähr.

[snb]

PHP-Code:

Sub M_snb()
  sn = [transpose((row(offset(A1,,,100/c2+1))-1)*c2)]
  ReDim sp(Cells(3, 3) - 1, Cells(1, 3) - 1)
 
  For j = 1 To UBound(sn)
      For jj = 1 To UBound(sn)
        sp(n, 0) = sn(j)
        sp(n, 1) = sn(jj)
        sp(n, 2) = 100 - sn(jj) - sn(j)
        If sp(n, 2) >= 0 Then n = n + 1
        If n > UBound(sp) Then Exit For
    Next
  Next
 
  wsC.Cells(4, 7).Resize(UBound(sp) + 1, 3) = sp
End Sub


[Sulprobil]

Eine allgemeine Lösung:
https://berndplumhoff.gitbook.io/sulprob...mbinations