Online Rechner Der Rechner von Simplexy kann dir beim Lösen vieler Aufgaben helfen. Für manche Aufgaben gibt die der Rechner mit Rechenweg auch einen Lösungsweg. So kannst du deinen eignen Lösungsweg überprüfen. Permutation ohne Wiederholung Wir betrachten \(n\) unterscheidbare Objekte, die wir nebeneinander in einer Reihe mit \(n\) Plätzen aufstellen wollen. Für das aller erste Objekt gibt es \(n\) Platzierungsmöglichkeiten, wir können uns also frei entscheiden wo wir es hinstellen wollen. Für das zweite Objekt haben wir nur noch \((n-1)\) Platzierungsstellen. Denn das erste Objekt besetzt bereits ein Platz auf den wir das zweite Objekt nicht mehr stellen können. Für das dritte Objekt gibt es \(n-2\) freie Plätze... Wenn wir nur noch das letzte Objekt zu platzieren müssen, ist nur noch ein Platz frei. Mit Hilfe des Zählprinzips können wir die Anzahl an Permutationen folgendermaßen schreiben: \(n\cdot (n-1)\cdot (n-2)\cdot... \cdot 1=n! \) Regel: Eine Permutation ohne Wiederholung ist eine Anordnung von Elementen einer Menge, dabei muss folgendes gelten: Die Elemente sind unterscheidbar.
Entsprechend ist die Kombinationsbildung leider fehlerhaft. Stärken: + Anzahl der zu kombinierenden Begriffe ist unbegrenzt + Ausgabe der Kombinationen in einer Excel-Datei Mein Wunsch: --> Makro-Code müsste so geschrieben sein, dass eine Permutation ohne Wiederholung gegeben ist. Damit wäre dieser Code zu 100% genau das was ich brauche!!! Lösung 2 - von Rudi Maintaire der Code von Rudi Maintaire: Const strDelim As String = "|" Sub SpaltenKombinieren() reenUpdating = False Dim objKombi As Object, rngC As Range, lngCount As Long Dim arrKombi(), arrTmp, i As Long, j As Long Dim colKombi As New Collection Set objKombi = CreateObject("Scripting. Dictionary") For Each rngC In Range("A:C").
b) die Permutationen an sich sind ja immer "gleich", egal, ob man nun die Ziffern von 1 bis 4 oder vier Begriffe verwendet. Also habe ich den Rosetta nicht groß geändert: der gibt schlicht Zahlen aus (um beim späteren Ersetzen von 1 mit "rot" bei der 11 nicht rotrot zu bekommen, habe ich die einzelnen Zahlen in!! geklammert). c) in einem dritten Schritt werden einfach die Zahlen durch den jeweiligen Begriff ersetzt.