Office: Excel07-Makro: alle Kombinationen von 0,0 bis 0,9 in 1,0

Hallo!

Ich möchte für meine Diplomarbeit (leider nicht in Informatik :-)) eine große Tabelle generieren.
Diese Tabelle soll 10 Spalten haben. In den Zeilen sollen sich alle möglichen Kombinationen von 0,0 bis 0,9 befinden, die addiert 1,0 ergeben. Die kleinste Teilbarkeit von 1 ist dabei auf eine Dezimalstelle beschränkt. Die Zahlen, die verwendet werden dürfen, sind also 0,0 0,1 0,2 0,3, 0,4 0,5 0,6 0,7 0,8 0,9 und 1,0.
Das Ganze sollte also die folgende Form haben:

0,1 0,1 0,1 0,5 0,2 0,0 0,0 0,0 0,0 0,0
0,0 0,0 0,0 0,0 0,0 0,0 0,4 0,4 0,0 0,2
0,1 0,1 0,1 0,1 0,1 0,1 0,1 0,1 0,1 0,1
0,0 0,0 1,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0
0,1 0,2 0,1 0,2 0,1 0,2 0,1 0,0 0,0 0,0

Und hiervon eben alle möglichen Kombinationen, die 1,0 in der Summe ergeben.
Ich habe so eine Tabelle schon mit 6 Spalten in Excel von Hand erstellt und komme auf fast 3000 Zeilen, also mögliche Kombinationen.
Zehn Spalten sprengen allerdings komplett den Rahmen, der manuell zu realisieren ist. Auch deshalb, weil ich nicht kontrollieren kann, ob ich Fehler gemacht habe.

Ich denke, dass so eine Tabelle mit einem Excel-Makro durchaus möglich sein sollte. Ich hab allerdings keine Ahnung, wie.
Hat jemand eine Idee, wie man so eine Tabelle angehen könnte?

Bin für jede Antwort dankbar!!!

Dennis

 

Hallo!

Ohne jetzt schon direkt eine Lösung parat zu haben:
Ist die Reihenfolge der Summanden wichtig?
Also wäre für dich
1 0 0 0 0 0 0 0 0 0
dasselbe wie
0 0 0 0 0 0 0 0 0 1
oder wären das zwei verschiedene Lösungen deines Modells?

 

Das wären zwei unterschiedliche Lösungen bzw. Zeilen bzw. Kombinationen in der Tabelle. Sprich: wirklich ALLE möglichen Kombinationen sollten drin stehen. Habe ein wenig Bedenken, dass das ein Excel-Blatt sprengen könnte.

 

Hallo!

Ein Holzhammercode wäre wohl dieser hier:

Code:

Sub test()
Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, x As Long
For a = 0 To 10
For b = 0 To 10
For c = 0 To 10
For d = 0 To 10
For e = 0 To 10
For f = 0 To 10
For g = 0 To 10
For h = 0 To 10
For i = 0 To 10
For j = 0 To 10
If a + b + c + d + e + f + g + h + i + j = 10 Then
x = x + 1
Cells(x, 1) = a / 10
Cells(x, 2) = b / 10
Cells(x, 3) = c / 10
Cells(x, 4) = d / 10
Cells(x, 5) = e / 10
Cells(x, 6) = f / 10
Cells(x, 7) = g / 10
Cells(x, 8) = h / 10
Cells(x, 9) = i / 10
Cells(x, 10) = j / 10
End If
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub

Da mir mein Excel während der Ausführung abgeschmiert ist, kann ich auch nicht sagen, ob das Blatt gesprengt wird, aber das ist gut möglich!

 

Vielen Dank erstmal!
Das sieht genau so aus wie das was ich brauche.
Leider ist mein Excel auch abgeschmiert.
Kann man da vielleicht mehrere Markos raus machen, die einem jeweils einen Teil der Tabelle ausspucken damit der rechner nicht überfordert ist?

 

Hallo!

Momentan bin ich leider auch überfragt...
Wenn ich Zeit habe und was Passendes finde, dann melde ich mich nochmal.

 

Hallo,
wenn ich mir das so anschaue, dann ergeben sich 10 hoch 10 Lösungszeilen, also 10.000.000.000 Zeilen.
Das schafft Excel nicht

Micha