Alle Summen-Kombinationen aus 1-n Zellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer,
ich hab mir beide angeschaut und aus dem zweiten Beitrag die Mappe auch runtergeladen. Aber es sind beide nicht das, was ich brauch, denn im ersten Beispiel ist es eine bestimmt Anzahl und im zweiten werden immer nur zwei Werte addiert. Mein Ziel/Wunsch wäre alle Kombinationen zu bekommen mit jeder möglichen Anzahl an Summanden, also z.B. bei 4 Werten alle Ergebnisse mit einem Summanden, mit 2, mit 3 und mit 4 Summanden. Ich glaub, dass das ziemlich aufwendig ist, daher hab ich's hier ins Forum gestellt, nachdem ich mir schon den ganzen Nachmittag den Kopf zerbrochen hab. Mein größtes Problem ist für mich, dass ich bestimmen muss, wieviele Schleifen durchlaufen werden sollen, da ja die Anzahl der relevanten Zellen verschieden sein kann. Vielleicht ist das auch gar nicht umsetzbar. Dann muss ich mir was anderes überlegen. Toll wär's aber schon, wenn's eine Lösung gäbe.
Viele Grüße
Michi

Ich hab mich mal an einem rudimentären (also ohne Dim etc.) Makro versucht, um das Problem zu lösen. Vielleicht kann man was draus machen:


Sub kombi()
suchwert = Range("L1").Value
Count = 1
Range("A2:J100").ClearContents
If Cells(1, 1) = 0 Then a1 = 0 Else a1 = 1
If Cells(1, 2) = 0 Then b1 = 0 Else b1 = 1
If Cells(1, 3) = 0 Then c1 = 0 Else c1 = 1
If Cells(1, 4) = 0 Then d1 = 0 Else d1 = 1
If Cells(1, 5) = 0 Then e1 = 0 Else e1 = 1
If Cells(1, 6) = 0 Then f1 = 0 Else f1 = 1
If Cells(1, 7) = 0 Then g1 = 0 Else g1 = 1
If Cells(1, 8) = 0 Then h1 = 0 Else h1 = 1
If Cells(1, 9) = 0 Then i1 = 0 Else i1 = 1
If Cells(1, 10) = 0 Then j1 = 0 Else j1 = 1
For a = 0 To a1
For b = 0 To b1
For c = 0 To c1
For d = 0 To d1
For e = 0 To e1
For f = 0 To f1
For g = 0 To g1
For h = 0 To h1
For i = 0 To i1
For j = 0 To j1
summe = (Cells(1, 1) * a) + (Cells(1, 2) * b) + (Cells(1, 3) * c) + (Cells(1, 4) * d)  _
+ (Cells(1, 5) * e) + (Cells(1, 6) * f) + (Cells(1, 7) * g) + (Cells(1, 8) * h) + (Cells(1, 9) * i) + (Cells(1, 10) * j)
If summe = suchwert Then
Count = Count + 1
Cells(Count, 1) = Cells(1, 1) * a
Cells(Count, 2) = Cells(1, 2) * b
Cells(Count, 3) = Cells(1, 3) * c
Cells(Count, 4) = Cells(1, 4) * d
Cells(Count, 5) = Cells(1, 5) * e
Cells(Count, 6) = Cells(1, 6) * f
Cells(Count, 7) = Cells(1, 7) * g
Cells(Count, 8) = Cells(1, 8) * h
Cells(Count, 9) = Cells(1, 9) * i
Cells(Count, 10) = Cells(1, 10) * j
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Gruß
David

Beliebteste Forumthreads (12 Monate)

Alle Summen-Kombinationen aus 1-n Zellen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread