Wörter in verschiedenen Spalten Kombinieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Michael!
Mit diesen Erweiterungsangaben wächst Deine Aufgabestellung zu einer Projektbeschreibung aus, denn ich sehe hier nur den Lösungsweg über die Makro-/VBA-Programmierung.
Zudem ist sie, die Aufgabe, gegenüber der ersten Formulierung nun nicht mehr so eindeutig, denn war es vorher klar, dass eine neue Textkette aus jeweils einer Anzahl von Worten bestand (=Anzahl der Spalten), bei der es für jedes Wort einen festen Platz in der Kette und eine feste Anzahl von Möglichkeiten gab (=Anzahl der Zeilen), so kann diese Annahme jetzt nur noch bedingt angewendet werden.
So wäre eine Verkettungsmachine mit Eigenschaftswörter und Substantivpartikel


systematisierte | Motivations     | effizienz
selektive       | Kommunikations  | konzeption
permanente      | Interpretations | potenz
ambivalente     | Synergie        | relevanz

durchaus eindeutig. Erweitere ich hingegen sie Liste durch die Zeile


               | Beziehungs      |

so sind Sonderbehandlungen notwendig. Weiterreichender werden die "Umbauten", wenn einzelne Zeilen zusätzlich Spalten erhalten.

Ich habe für die Ausgangsfrage (feste Anzahl der Spalten = 3) einmal eine Tabelle angelegt, in der Du in dem Zellenbereich F2 bis H2 und darunter, eine mögliche Indexberechnung als Zellenformel siehst (Kommentar zur Zelle E2 bitte beachten). Mit diesen Ergebnissen ist es möglich die Zellenformeln in der Spalte J zu schreiben, die mit den Befehlen INDIREKT und VERKETTEN den entsprechenden Text zusammen setzen.

https://www.herber.de/bbs/user/4595.xls

Die Anzahl der zu berücksichtigenden Zeilen wird als Eingabe in die Zelle E1 verlangt. In E2 wird die Eingabe auf gültige Grenzen geprüft und gegebenen falls korrigiert. Mit den Inhalt der Zelle E2 werden die Indexspalten F, G und H berechnet.

Um dies nun noch allgemeiner zu halten, würde es vermutlich darauf hinauslaufen, dass man eine rekrusive VBA-Routine schreibt, die so alle Kombinationen liefert. Alternativ könnte die Indextabelle analog zu den Zellenformeln aufgebaut werden. Auf die weitere Ideendarstellung zur Umsetzung in VBA verzichte ich, da die fertige Lösung bestimmt nicht dazu geeignet ist, als Einführungsbeispiel in die VBA-Programmierung zu dienen.

Wie einleitend beschrieben, das Ganze ist eine Projektaufgabe, die normale Hilfestellung übersteigt. Vielleicht konnte ich dennoch ein paar Anstöße liefern.

Gruß!

Hallo, HW,
wenn ich kurz hier darstellen darf, wie ich die Aufgabe verstanden habe, dann geht es nicht um das Problem, wie Stelle ich n Elemente in all ihren Anordnungsmöglichkeiten da, denn dann hättest Du natürlich recht mit dem hinweis auf die Permutation, die zur Anzahl n! führt, sondern es geht um die Frage, welche möglichen Ketten sich bei einer {n;m}-Matrix ergeben, wenn man die m Elemente der Spalte i=1...n, mit all den Kombinationen verknüpft, die sich aus den übrigen n-1 Spalten ergibt.
Dieses Prinzip ist in den Walzen der "einarmigen Banditen" zu finden. Jede der n Walze oder Scheibe (in der Tabelle sind es die Spalten) hat m Elemente (in der Tabelle die Zeilen). Mit dieser Konstruktion liefern z.B die Spalte n genau m verschiende Möglichkeiten.
Diese m Möglichkeiten lassen sich ihrerseits wieder mit m Elementen der Spalte (n-1) kombinieren, so dass sich eben m*m = m² Möglichkeiten für die beiden letzten Spalten ergeben.
Jeder dieser m*m Möglichkeiten läßt sich nunaber wieder mir den m Möglichkeiten der Spalte n-2 kombinieren, womit die Gesamtzehl nun auf m*m*m = m³ angewachsen ist.
Zu erkennen ist also, das bei einer Matrix von {n;m} es somit mⁿ verschiedene Ketten gibt.
Dies gilt natürlich nur dann, wenn die Matrix voll besetzt ist bzw. Leerzellen als eigenständiges Partikel betrachtet werden. Deswegen scheint es mir ja auch erfordelich, die Randbedingen der Erweiterung der Aufgabe noch genauer darzustellen (wenn die erste Zeile z.B. 35 Elemnte hat, stahen dann die Elemente in den Zeilen, die weniger Elemente aufweisen, in den Spalten, wie auch das Wort, das in der ersten Spalte ersetzt werden soll?
Gruß,
Uwe

Private Sub builtNextIndexVector(ByRef vIdx() As Integer, m As Integer, n As Integer) Dim LastColumn As Integer Dim i As Integer LastColumn = n i = vIdx(LastColumn) Do If i + 1 > m Then vIdx(LastColumn) = 1 LastColumn = LastColumn - 1 i = vIdx(LastColumn) End If Loop Until i + 1 <= m vIdx(LastColumn) = vIdx(LastColumn) + 1 End Sub

Sub pnm(n As Integer, m As Integer) Dim i As Integer ReDim idx(1 To m) For i = 1 To m: idx(i) = 1: Next: writep idx() While WorksheetFunction.Sum(idx) < n * m If idx(1) < n Then idx(1) = idx(1) + 1 Else i = 0 While idx(i + 1) >= n i = i + 1 idx(i) = 1 Wend If i < m Then idx(i + 1) = idx(i + 1) + 1 End If writep idx() Wend End Sub

Beliebteste Forumthreads (12 Monate)

Wörter in verschiedenen Spalten Kombinieren

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread