Alle möglichen Zahlenkombinationen auflisten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi!
War einfacher als ich anfangs dachte
Gruß, MCO Sub kombi() Dim a For a = 0 To 5 For b = 0 To 5 For c = 0 To 5 For d = 0 To 5 For e = 0 To 5 If a + b + c + d + e = 5 Then Debug.Print a & b & c & d & e End If Next: Next: Next: Next: Next End Sub 00005
00014
00023
00032
00041
00050
00104
00113
00122
00131
00140
00203
00212
00221
00230
00302
00311
00320
00401
00410
00500
01004
01013
01022
01031
01040
01103
01112
01121
01130
01202
01211
01220
01301
01310
01400
02003
02012
02021
02030
02102
02111
02120
02201
02210
02300
03002
03011
03020
03101
03110
03200
04001
04010
04100
05000
10004
10013
10022
10031
10040
10103
10112
10121
10130
10202
10211
10220
10301
10310
10400
11003
11012
11021
11030
11102
11111
11120
11201
11210
11300
12002
12011
12020
12101
12110
12200
13001
13010
13100
14000
20003
20012
20021
20030
20102
20111
20120
20201
20210
20300
21002
21011
21020
21101
21110
21200
22001
22010
22100
23000
30002
30011
30020
30101
30110
30200
31001
31010
31100
32000
40001
40010
40100
41000
50000

Sub kombi2() Dim a As Long, b As Long, c As Long, d As Long For a = 0 To 5 For b = 0 To 5 - a For c = 0 To 5 - a - b For d = 0 To 5 - a - b - c Debug.Print a & b & c & d & 5 - a - b - c - d Next: Next: Next: Next End Sub

…Erich (Dominic scheint's ja nicht mehr zu interessieren!);
zuerst die Anzahl der Variationen ermitteln, die die Bedingung erfüllen:
{=ANZAHL(WENN(GANZZAHL((ZEILE($1:$6481)-1)/6^4)+GANZZAHL(REST((ZEILE($1:$6481)-1);6^4)/6^3)+
GANZZAHL(REST(REST((ZEILE($1:$6481)-1);6^4);6^3)/6^2)+GANZZAHL(REST(REST(REST((ZEILE($1:$6481)-1);6^4);
6^3);6^2)/6)+REST(REST(REST(REST((ZEILE($1:$6481)-1);6^4);6^3);6^2);6)=5;--(GANZZAHL((ZEILE($1:$6481)
-1)/6^4)&GANZZAHL(REST((ZEILE($1:$6481)-1);6^4)/6^3)&GANZZAHL(REST(REST((ZEILE($1:$6481)-1);6^4);
6^3)/6^2)&GANZZAHL(REST(REST(REST((ZEILE($1:$6481)-1);6^4);6^3);6^2)/6)&REST(REST(REST(REST(
(ZEILE($1:$6481)-1);6^4);6^3);6^2);6));""))}
Das ergibt 126. Dann entweder 126 1zellige MatrixFmln verwenden …
{=KKLEINSTE(WENN(GANZZAHL((ZEILE($1:$6481)-1)/6^4)+GANZZAHL(REST((ZEILE($1:$6481)-1);6^4)/6^3)+
GANZZAHL(REST(REST((ZEILE($1:$6481)-1);6^4);6^3)/6^2)+GANZZAHL(REST(REST(REST((ZEILE($1:$6481)-1);6^4);
6^3);6^2)/6)+REST(REST(REST(REST((ZEILE($1:$6481)-1);6^4);6^3);6^2);6)=5;--(GANZZAHL((ZEILE($1:$6481)-
1)/6^4)&GANZZAHL(REST((ZEILE($1:$6481)-1);6^4)/6^3)&GANZZAHL(REST(REST((ZEILE($1:$6481)-1);6^4);6^3)
/6^2)&GANZZAHL(REST(REST(REST((ZEILE($1:$6481)-1);6^4);6^3);6^2)/6)&REST(REST(REST(REST((ZEILE($1:
$6481)-1);6^4);6^3);6^2);6));"");ZEILE(A1))}
…oder nur eine einzige über 126 Zellen/Zeilen:
{=TEXT(KKLEINSTE(WENN(GANZZAHL((ZEILE(1:6481)-1)/6^4)+GANZZAHL(REST((ZEILE(1:6481)-1);6^4)/6^3)+
GANZZAHL(REST(REST((ZEILE(1:6481)-1);6^4);6^3)/6^2)+GANZZAHL(REST(REST(REST((ZEILE(1:6481)-1);6^4);
6^3);6^2)/6)+REST(REST(REST(REST((ZEILE(1:6481)-1);6^4);6^3);6^2);6)=5;--(GANZZAHL((ZEILE(1:6481)-1)
/6^4)&GANZZAHL(REST((ZEILE(1:6481)-1);6^4)/6^3)&GANZZAHL(REST(REST((ZEILE(1:6481)-1);6^4);6^3)/6^2)&
GANZZAHL(REST(REST(REST((ZEILE(1:6481)-1);6^4);6^3);6^2)/6)&REST(REST(REST(REST((ZEILE(1:6481)-1);6^4);
6^3);6^2);6));"");ZEILE(1:126));"00000")}
Die Vornullen kann man ja über die Formatierung erzeugen oder wie in der letzten Fml mit TEXT, was ggf angeratener sein mag.
Die Fmln sind leider ziemlich lang, da klassisch. Dafür wird aber auch nur eine über 126 Zellen benötigt. Ich habe dafür auch UDFs, was die Fml verkürzen würde, aber die sind schon älter und leider nicht aktiv MxFml-fähig, d.h., sie können im HptArgument nur Einzelwerte, keine Datenfelder verarbeiten, die hier aber wg KKLEINSTE erforderlich sind.
Übrigens erkennst du sicher, dass es sich bei diesen Fmln um eine DezimalzahlenKonvertierung in ein HexalZahlen-System (Ziffern 0…5) handelt.
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Alle möglichen Zahlenkombinationen auflisten

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

116 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	Zeile	Sum	Fünfte	Alle
2	0	0	5	00005
3	1	1	4	00014
4	2	2	3	00023
5	3	3	2	00032
6	4	4	1	00041
7	5	5	0	00050
8	6	6	-1	999999
9	7	7	-1	999999
10	8	8	-1	999999
11	9	9	-1	999999
12	10	1	4	00104
13	11	2	3	00113
14	usw.
15	4997	29	-1	999999
16	4998	30	-1	999999
17	4999	31	-1	999999
18	5000	5	0	50000
19	geht bis Zeile 5002

Alle möglichen Zahlenkombinationen auflisten

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

116 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread