Alle Summen-Kombinationen aus 1-n Zellen

Michi · 2008-07-17T20:02:10+00:00

Liebe VBA-Freaks, ich möchte gerne folgende Aufgabe lösen. Meiner Meinung nach geht das nur über VBA und da bin ich an meine Grenzen gestossen: Ich möchte aus 1-n Zellen jeweils die Summe aller möglichen Kombinationen bekommen, also z.B. bei 4 Zellen müssten die Ergebnisse sein: - Jede Zelle einzeln als Summe (wohl kein Problem) - dann alle Kombinationen aus 2 Zellen, also 1+2, 1+3, 1+4, 2+3,...... - dann alle Kombinationen aus 3 Zellen, also 1+2+3, 1+2+4, 1+3+4....... bis zur Summe aller Zellen (hier 4) Tja, und da das Ganze variabel sein soll bzgl. der Anzahl der Zellen, wird's kompliziert. Ich brauch die Ergebnisse auch nicht alle aufgelistet, mir reicht, wenn ich das jeweilige Ergebnis pro Kombination bekomme und mit dem weiterarbeiten kann. Besten Dank schon mal im voraus und viele Grüße Michi

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

Alle Summen-Kombinationen aus 1-n Zellen

Forumthread: Alle Summen-Kombinationen aus 1-n Zellen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial