Office: Automatisches Füllen einer Tabelle

Hallo,

ich habe folgendes Problem:

Meine Tabelle besteht aus 6 Spalten und ist momentan noch leer.

Ich suche nun eine Formel, die mir diese Tabelle füllt unter folgenden Voraussetzungen:

- jede Zelle soll nur Zahlen enthalten
- die Summe aus allen Spalten soll in jeder Zeile 100 ergeben
- die Zahlen sollen nur die Werte "0", "10", "20" usw. bis "100" haben
- es sollen alle möglichen verschiedenen Kombinationen eingetragen werden die es unter diesen Voraussetzungen gibt

Hier ein Beispiel:

Spalte 1: 40
Spalte 2: 0
Spalte 3: 10
Spalte 4: 20
Spalte 5: 30
Spalte 6: 0


Vielen Dank!

 

Eine "Formel" würde mir dazu nicht einfallen, aber ein Algorithmus "brute force" errechnet mir 3003 Möglichkeiten.

Ich habe den mal in eine Excel-Tabelle gepackt, aber ein Umbau für Access ist kein Riesen-Aufwand:

Code:

Private Sub B_Einhundert_Click()

    Dim s1 As Worksheet
    Dim y1, x1 As Long
    Dim m, n, o, p, q, r As Long
    Dim z As Long

    Set s1 = ActiveSheet

    y1 = 1: x1 = 1
    s1.Range("a2:h65536").ClearContents

    For m = 0 To 10
        For n = 0 To 10
            For o = 0 To 10
                For p = 0 To 10
                    For q = 0 To 10
                        For r = 0 To 10

    z = (m * 10) + (n * 10) + (o * 10) + (p * 10) + (q * 10) + (r * 10)
    If (z = 100) Then
        y1 = y1 + 1
        's1.Cells(y1, x1).Activate
        s1.Cells(y1, x1).Value = y1 - 1
        s1.Cells(y1, x1 + 1).Value = m * 10
        s1.Cells(y1, x1 + 2).Value = n * 10
        s1.Cells(y1, x1 + 3).Value = o * 10
        s1.Cells(y1, x1 + 4).Value = p * 10
        s1.Cells(y1, x1 + 5).Value = q * 10
        s1.Cells(y1, x1 + 6).Value = r * 10
        s1.Cells(y1, x1 + 7).Value = z
    End If

                        Next r
                    Next q
                Next p
            Next o
        Next n
    Next m

End Sub

Falls Du die Routine hinter einen Button in Access packen möchtest, sind einige Anpassungen sinnvoll:
a) set --> dbopenrecordset
b) clearcontents --> Tabelle löschen
c) cells.value=wert --> addnew

Dann macht das Ding in Access das gleiche wie in Excel. Alternativ kannst du natürlich auch die berechnete Tabelle aus Excel in Access importieren... ;-)

Dein Beispiel ist übrigens Möglichkeit Nr. 2584... ;-)

Gruß, Michael