Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ohne Vba Kombinationen 6 aus 49

Ohne Vba Kombinationen 6 aus 49
21.07.2008 13:44:21
Reinhard
Hallo Wissende,
auf http://excelformeln.de/formeln.html?welcher=346 habe ich das Nachfolgende gefunden, daß 4er Kombinationen aus der Zahl (-enmenge) in A1, hier 49, bildet.
Bei 3ern gibt es schon 18424 Kombinationen und ich weiß bei 6ern sind das 14 Millionen, aber das kriege ich selbst hin die Ergebnisse auf andere Spalten, ggfs. andere Blätter zu verteilen.
a) Mir gelingt es leider nicht aus den untenstehenden Formeln die richtigen Formeln für E2 und F2 zu entwickeln. mag mir jemand helfen.
(Die Formel für D2 steht ja bei Excelformeln bei Vierern)
b) Die Überprüfung auf leer habe ich nicht verstanden und es so probiert:
B2: =WENN(C1=$A$1-1;B1+1;B1)
C2: =WENN(B2B1;B2+1;WENN(D1=$A$1;C1+1;C1))
D2: =WENN(D1=$A$1;C2+1;D1+1)
und es sieht im Ergebnis identisch aus, übersehe ich da was? Boris und Co haben die Überprüfung sicher nicht umsonst reingeschrieben. Oder war das nur optisch damit nicht "#WERT" erscheint?
Dreier
In B1, C1 und D1 stehen die Zahlen 1, 2 und 3
in B2 steht:
=WENN(ODER(B1=$A$1-2;B1="");"";WENN(C1=$A$1-1;B1+1;B1))
in C2:
=WENN(B2="";"";WENN(B2B1;B2+1;WENN(D1=$A$1;C1+1;C1)))
in D2:
=WENN(B2="";"";WENN(D1=$A$1;C2+1;D1+1))
und runterkopieren
Danke ^ Gruß
Reinhard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Korrektur, ich suche Formeln für F2 und G2 o.w.T.
21.07.2008 13:46:00
Reinhard


Frage noch offen *seufz* o.w.T.
21.07.2008 13:47:14
Reinhard


AW: Ohne Vba Kombinationen 6 aus 49
21.07.2008 14:00:39
David
Bei 3ern gibt es schon 18424 Kombinationen und ich weiß bei 6ern sind das 14 Millionen, aber das kriege ich selbst hin die Ergebnisse auf andere Spalten, ggfs. andere Blätter zu verteilen.
Sorry, wenn ich nicht zur Lösung beitrage (ich lasse den Thread auch offen), aber du sollstest vielleicht schon mal ein wenig Rechnenzeit auf einem Supercomputer bestellen. Ich glaube nicht, dass eine Excel-Tabelle händelbar ist, in der 14 Mio Kombinationen, die sich durch eine Formel errechnen, stehen. Ich hatte vor kurzem mal eine Tabelle, in der ich Binärzahlen ausrechnen ließ, da war ich bei 24 Spalten á 65 Tausend Zeilen schon bei über 70 MB. Das wären dann bei 14 Mio. ca. 700 MB!
also ich weiß nicht...
Gruß
David

Anzeige
AW: Ohne Vba Kombinationen 6 aus 49
21.07.2008 14:31:00
Reinhard
Hallo David,
du hast vollkommen Recht. 14 Mio Kombinationen a 6 Zellen sind schon mal 84 Mio Zellen, verteilt auf 65536 Zeilen und 256 Spalten brauche ich dafür über 5 Blätter.
Und wenn ich jede Formel nur mit 20 Bytes rechne komme ich auf 65536x256x20 = 336 MB pro Blatt.
Wirklich ein Haufen Holz, da warte ich dann doch auf XL2007, vielleicht kann das ja fixer rechnen.
Trotzdem bin ich nach wie vor an der Formellösung für F2 und G2 interessiert.
Gruß
Reinhard

AW: Ohne Vba Kombinationen 6 aus 49
27.07.2008 13:06:00
Björn
Hallo Reinhard,
versuch's doch mal wie folgt:
A1: 8
A2: =FAKULTÄT(A1)/(FAKULTÄT(6)*FAKULTÄT(A1-6))&" Sechser"
B1: 1
C1: 2
D1: 3
E1: 4
F1: 5
G1: 6
B2: =WENN(ODER(B1=$A$1-5;B1="");"";WENN(C1=$A$1-4;B1+1;B1))
C2: =WENN(B2="";"";WENN(B2B1;B2+1;WENN(D1=$A$1-3;C1+1;C1)))
D2: =WENN(B2="";"";MIN($A$1-3;WENN(C2C1;C2+1;WENN(E1=$A$1-2;D1+1;D1))))
E2: =WENN(C2="";"";MIN($A$1-2;WENN(D2D1;D2+1;WENN(F1=$A$1-1;E1+1;E1))))
F2: =WENN(D2="";"";MIN($A$1-1;WENN(E2E1;E2+1;WENN(G1=$A$1;F1+1;F1))))
G2: =WENN(D2="";"";WENN(G1=$A$1;F2+1;G1+1))
B2:G2 mindestens 30 Zeilen runterkopieren
Das noch überschaubare Ergebnis für den Zahlenraum 1 bis 8 (gem. A1) sind 28 Sechser und die sollten Dir auch alle angezeigt werden.
Viele Grüße
Björn
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige