Wertabhängig Kombinationen herausfiltern

hallo Wissende,
sorry, besserer Betreff ist mir nich eingefallen fürs Archiv, wer mag kann ihn ja verbesseren, dankeschön.

Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │
──┼───┼───┤
1 │ A │ 1 │
──┼───┼───┤
2 │ B │ 1 │
──┼───┼───┤
3 │ C │ 4 │
──┼───┼───┤
4 │ D │ 1 │
──┼───┼───┤
5 │ E │ 3 │
──┼───┼───┤
6 │ F │ 7 │
──┼───┼───┤
7 │ G │ 2 │
──┼───┼───┤
8 │ H │ 2 │
──┴───┴───┘

Aus dieser zweispaltigen Tabelle möchte ich in Zellen untereinander auflisten welche Kombinationen es da gibt um aus den Werten in B die Zahl 5 zu bilden.
D.h. es sollte dann so aussehen in der Ergebnisspalte:
A,C
A,B,E
A,B,D,G
A,B,D,H
usw.
Was ich mir zutraue ist, alle möglichen Kombinationen zu ermitteln aber das gibt eine irre lange Rechenzeit.
Und wenn es nicht wie hier 8 Datenzeilen sind sondern 100 dann kann man das ohne Gray-Computer vergessen :-)
Bliebe m.W. noch eine rekursive Funktion. Naja, meine Versuche damit, vor einiger Zeit, endeten in Tragödien. Mal Stapelfehler, Stapelüberlauf oder es klappte sonstwie nicht :-(
Ich habe jetzt schon paar tage lang immer mal so im Internet und auch hier im Archiv gesucht nach Kombinationen, Permutationen usw. Da findet man schon reichlich Treffer.
Fand auch einiges, vieles, auch schicke kleine rekursive Funktionen. Leider bin ich unfähig die für dieses Problem anzupassen.
Gruß
Reinhard
Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

…hatte aber schon mal auf der Suche nach Ordnungsprinzipien mit Fmln experimentiert. Dabei wurde mir klar, dass es sich hierbei eigentlich um Kombinationen mit Teilwiederholungen handeln müsste → Anzahl relativ schwierig zu berechnen. Aber auf dieser Basis und der Frequenz der BspWerte habe ich versucht, die Ausgangslage zu berechnen. Das Problem dabei ist natürl, einen möglichst einheitl Algorithmus abzuleiten. Das ist mir nur zT gelungen, aber als Ansatz für eine VBA-Umsetzung bzw ein Fml-Lösungsschema hätte es dienen können. Die Auskombination der einzelnen Varianten der Basisgruppen war dann auch mit Fmln relativ leicht, wenn man mal von gewissen Trial&Error-Unzulänglichkeiten absieht. Das Ergebnis stelle ich hier auch mal als Bild ein, obwohl so etwas natürl viel zu aufwendig im Großversuch wäre. Aber viell entwickelt ja mal jemand (der VBA nicht mag bzw nicht verwenden kann) daraus ein rationales Lösungsschema für so etwas — wer weiß … ;-)
Userbild

Übrigens ist die Überschrift Frqz ein Fehler, den ich leider erst jetzt bemerke. Die hatte ich zwar ermittelt, aber letztlich nicht in diese Tab aufgenommen. Hier stehen natürlich die Wertigkeiten zu den Symbolen in der 2.Spalte. Und weil ich schon dabei bin — die letzte Fml steht natürl in E68[:G72] (mit Ausnahme von G68 u.G72 — auch so eine kleine Unzulänglichkeit).
Gruß Luc :-?

	A	B	C	D	E	F	G
61	Basiskompp/Elemente	KompElement–Wertigkeit	–Frequenz	Überlänge	Längendiffz
62	ABD	GH	1	2	(irrelev F>Krit)	-2	2
63	ABD	GH	1	2	3	-2	2
64	ABD	E	1	3	1	-1	2
65	ABD	C	1	4	1	-2	2
66	GH	E	2	3	2	-2	1
67	1	2	2	alle Kompp	Elementkombinationen
68	0	0	-1	1	ABDG	ABDH
69	0	0	-1	2	AGH	BGH	DGH
70	1	1	0	2	ABE	BDE	ADE
71	2	0	-1	2	AC	BC	DC
72	2	-1	0	2	GE	HE
73	*Relevante Formeln:*	A68[:A72]:=D62-G62	13	*SummKrit:*	5
74	B68[:B72]:=$C$61-LÄNGE(A62)C62+G62-LÄNGE(B62)D62	F62[:F66]:=$G$73-LÄNGE(A62)C62-LÄNGE(B62)D62
75	C68[:C72]:=$C$61-C62G62-LÄNGE(B62)D62	G62[:G66]:=LÄNGE(B62)D62+$F62*
76	D68[:D72]:=INDEX(A$67:C$67;VERGLEICH(0;A68:C68;0)+(ZEILE(1:1)=2))
77	E68[:G72]:=WAHL($D68;$A62&TEIL($B62;SPALTE(A:A);1);WENN(ODER(SPALTE(A:A)-2≤0;REST($D62;2)=0);
78	"";TEIL($A62;SPALTE(A:A)-2;1))&TEIL($A62;SPALTE(A:A);($G$73-$D62LÄNGE($B62))/$C62)&$B62)*

Basiskompp/Elemente

KompElement–Wertigkeit

–Frequenz

Überlänge

Längendiffz

ABD

(irrelev F>Krit)

-2

ABD

-2

ABD

-1

ABD

-2

alle Kompp

Elementkombinationen

-1

ABDG

ABDH

-1

AGH

BGH

DGH

ABE

BDE

ADE

-1

Relevante Formeln:

A68[:A72]:=D62-G62

SummKrit:

B68[:B72]:=$C$61-LÄNGE(A62)*C62+G62-LÄNGE(B62)*D62

F62[:F66]:=$G$73-LÄNGE(A62)*C62-LÄNGE(B62)*D62

C68[:C72]:=$C$61-C62*G62-LÄNGE(B62)*D62

G62[:G66]:=LÄNGE(B62)*D62+$F62

D68[:D72]:=INDEX(A$67:C$67;VERGLEICH(0;A68:C68;0)+(ZEILE(1:1)=2))

E68[:G72]:=WAHL($D68;$A62&TEIL($B62;SPALTE(A:A);1);WENN(ODER(SPALTE(A:A)-2≤0;REST($D62;2)=0);

"";TEIL($A62;SPALTE(A:A)-2;1))&TEIL($A62;SPALTE(A:A);($G$73-$D62*LÄNGE($B62))/$C62)&$B62)

Beliebteste Forumthreads (12 Monate)

Wertabhängig Kombinationen herausfiltern

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread