Office: Alle möglichen Kombinationen durchprobieren

Hallo liebe VBA-Experten,

ich hätte mal wieder eine Frage an euch:
Es geht darum, dass ich in einer Spalte zwischen 6 und 11 Werte stehen habe (alle Werte sind zu Beginn 1). Diese Werte darf mein Makro verändern (auf 0 oder 1). Ich hätte jetzt gerne, dass er 2 dieser Werte (die ich vorgebe) auf 0 setzt. Dann soll es von den restlichen Werten noch 3 zusätzliche auf 0 setzen und die anderen auf 1 lassen. Für diese 3 Werte soll er dann alle möglichen Kombinationen ausprobieren. Das sollten bei 11 Werten 84 verschiedene Möglichkeiten sein. Aus diesen Werten wird bei jeder Permutation eine Zahl berechnet die er mir in eine andere Zelle irgendwo im Tabellenblatt speichern soll.

Kann mir irgendwer sagen wie man an sowas rangehen könnte? Komme nicht weiter =/

Vielen Dank im voraus *Smilie
humic

Ps.: Excel 2010

:)

 

Hallo humic,

was ist bei Dir eine 'Möglichkeit' und wie kommst Du auf 84 Möglichkeiten ?

Wie ?
Ein Beispiel wäre hilfreich ?

Was bedeutet irgendwo ?

Gruß
Aloys

 

hallo aloys,

wärend wir auf die Beispieldatei warten:

Wenn ich (maximal) 11 Werte habe, 2 fest vorgebe und aus den restlichen 9 Werten 3 auswählen möchte, gibt es KOMBINATIONEN(9;3)= 84 unterschiedliche Möglichkeiten.

 

Also meine Werte sind zu Beginn zB

1
1
1
1
1
1
1
1
1
1
1

Dann gebe ich ihm 2 Werte vor die es auf 0 setzen soll:

1
1
1
1
1
0
0
1
1
1
1

Und jetzt soll es zusätzlich alle Möglichkeiten durchprobieren zusaätzliche 3 auf 0 zu setzen. 3 Beispiele wären:

1 0 1
1 0 1
0 0 1
1 1 0
1 1 0
0 0 0
0 0 0
0 1 1
1 1 0
1 1 1
0 1 1

Da 2 Werte auf 0 fixiert sind kann das Makro also aus bei 11 Startwerten aus 9 Werte 3 auswählen. Das macht nach meiner Rechnung 9!/3!(6!)=84 Möglichkeiten. Und mit irgendwo meine ich, dass sie zB wenn meine Werte in der Spalte A stehen der errechnete Wert für jede Möglichkeit in der Spalte B aufgelistet wird (je ein errechneter Wert pro Zelle versteht sich).

Hoffe es ist so verständlicher

 

hallo humic,

ich warte noch auf eine Beispieldatei mit der Ausgabe von mindestens zwei Ergebnisvektoren.

Erwartest du für die Lösung ein Makro (wenn ja, wie soll es angestossen werden) oder Formeln?

Bei einem Makro sollte irgendwo auch die Anzahl der zu ändernden Werte (in deinem Fall 3) angezeigt werden. Es wäre ja Blödsinn es nur für 3 zu schreiben.

 

Hier wäre eine Beispieldatei.

Die gelben Zellen sind die Variablen die verändert werden soll. Als Rechenergebnis habe ich jetzt der Einfachheit halber einfach die Summe der Nummer genommen. Für jede Möglichkeit (alle 84) die ausprobiert wird soll das Makro die Summe der Nummern also in die Ergebnisse eintragen. Also am Ende sollten 84 Werte in der Ergebnisliste stehen.

Ich würde es gerne über ein Makro lösen das dann einfach manuell ausgelöst werden kann.

Also es dürfen nie mehr als 5 der Werte gleichzeitig 0 sein. Daher dürfen bei 2 vorgegebenen Werten immer nur 3 weitere gleichzeitig auf 0 gesetzt werden.

Vielen Dank
humic

 

Hallo humic,

das mit der Summe war ein Scherz? Die Summe ist doch so nicht eindeutig. Wenn eine Summe gewünscht wird, sollten die Zeilennummern Potenzen von zwei sein.

In der Anlage ein Beispiel.

a) Umsetzung
Ich habe die Ergebnisse in Spalten hinter dem Auswahlvektor geschrieben.
Alle Positionen die im Auswahlvektor eine 1 haben werden bei den Kombinationen berücksichtigt, alle andere Werte werden ignoriert.

b)Vorraussetzung
Das Programm benötigt drei benannte Bereiche:
1) Zelle "Anzahl" = Anzahl der Elemente in der Auswahl (=k in der Kombinatorik-Formel)
2) Zelle "Ausgabe" = erste Zelle für Ausgabedaten mit genügend Platz unter und hinter der Zelle, weil dort Daten gnadenlos überschrieben werden.
3) Bereich "Vektor"

c) Änderung
Die Anzahl, die länge des Vektors und die Anzahl der nicht zu berücksichtigenden Zeilen sind frei wählbar.

 

Ich danke vielmals *Smilie

LG
humic