Kombination aus Zahl ableiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function FormelX(x As Long) As String Dim a, b, c, nr For a = 1 To 28 For b = a + 1 To 29 For c = b + 1 To 30 nr = nr + 1 If x = nr Then FormelX = a & ";" & b & ";" & c Exit Function End If Next c Next b Next a End Function

Moin!
Habe mich auch mal mit der Problematik befasst. Also mit der eingangs gestellten Problematik. Da waren ja nur 3 Spalten angegeben.
Mittels VBA lässt sich das ganze geschmeidig und m.E. auch schnell lösen. Hat ja onur auch gezeigt. MIt Formeln sieht das etwas anders aus. Hättest du nur die 3 Schleifenwerte angegeben und die Zahl gewollt, hätte man das ggf. in eine schicke Formel schieben können (irgend eine Summe / Verkettung der Kombinationen bzw. Binominalkoeffizienten - Vermutung!). Du willst es nun andersherum machen. Das denke ich ist schwieriger. Ähnlich wie Multiplikation und Division als Gegenspieler. Die Mult ist einfach. Aus einer großen Zahl aber die Multiplikatoren zu finden etwas schwieriger.
Habe aber mal was gebastelt. Kommt aber nicht ohne einige Hilfsspalten aus. Zwei könnte man ggf. auch zusammenfassen, aber so was es für mich übersichtlicher. Die Datei ist so ausgelegt, das es auch allgemein berechnet wird und nicht nur für 28,29,30. Wenn du bspw. für die Schleifen nur 2,3,4 vorgibst, kannst du damit auch arbeiten. Die Zahlen müssen aber fortlaufend sein. Also 2,5,6 geht nicht. In den blauen Feldern gibst du die Schleifenendvariablen an. In der roten die Zahl, die du suchst und in den Gelben Feldern, erscheint die dazu gehörende SChleifenvariable. Darunter noch aus der links davon befindlichen Liste der Wert, der es sein sollte zum Vergleich.
In der Datei sind zudem noch 2 Buttons. Einer zählt die Zahl (im roten Feld) um 1 hoch - zum Testen. Mit dem Button Liste kannst du zu den jeweiligen Schleifenendvariablen die Liste links erzeugen.
https://www.herber.de/bbs/user/142595.xlsm
Bzgl. der Formeln gebe ich zu, dass die auf den ersten und zweiten Blick erschlagen. Letztendlich habe ich in den Hilfsspalten die Kombination zu den Variablen erstellt sowie einige Berechnungen zu den erhaltenen Werten und schlage darin nach.
Ob es einfacher geht weiß ich nicht. Evtl. könnte man bei einer anderen Anordnung der Hilfsspalten die Formel an sich verkürzen, da der SVERWEIS dann besser greift. Wäre dann u.U. nur noch halb so lang, da ein Vergleich entfällt und die Berechnung in den Zweigen identisch ist.
Und für weitere Variablen (bis zu 6) wird das Ganze inkl. der Formeln noch unübersichtlicher. Vom Prinzip her könnte man es aber ähnlich lösen. Die LIste der Kombinationen etc. brauchen dann nur andere Werte und die Formeln müssen geändert werden. ISt jetzt aber mal eine unbewiesene Vermutung.
Soweit mal noch zur Erläuterung.
VG

Beliebteste Forumthreads (12 Monate)

	A	B
1	1	1, 2, 3
2	2	1, 2, 4
3	3	1, 2, 5
4	4	1, 2, 6
5	5	1, 2, 7
4049	4049	25, 28, 30
4050	4050	25, 29, 30
4051	4051	26, 27, 28
4052	4052	26, 27, 29
4053	4053	26, 27, 30
4054	4054	26, 28, 29
4055	4055	26, 28, 30
4056	4056	26, 29, 30
4057	4057	27, 28, 29
4058	4058	27, 28, 30
4059	4059	27, 29, 30
4060	4060	28, 29, 30

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread