![]() |
Excel Makro Lotto 1-49 mit Bedienung - Druckversion +- Lotto-Totostrategen (https://Lotto-Totostrategen.de) +-- Forum: Lotto (https://Lotto-Totostrategen.de/forumdisplay.php?fid=884) +--- Forum: Lotto und VBA für Excel (https://Lotto-Totostrategen.de/forumdisplay.php?fid=1070) +--- Thema: Excel Makro Lotto 1-49 mit Bedienung (/showthread.php?tid=26267) |
Das Makro listet 1-49, was über 13 Mio Kombination aufgelistet, [CODE]Sub Lotto_moegliche_Kombinationen() Dim i As - Snuffx - 25.01.2018 Das Makro listet 1-49, was über 13 Mio Kombination aufgelistet, Code: Sub Lotto_moegliche_Kombinationen() Und das sollte mit einer Bedingung dazwischen aufgelistet Die Zahlen, das Makro nicht listen sollte, sagen wir (1 2 3 4 und 47 48 49 oder 13 und 3 und 5) Bedeutet „1 2 3 4 X X und X X X 47 48 49 oder 13 X und 3 X und 5 X „ werden nicht mitgezählt bzw eingetragen. Mit welchem Code sollte das hinzufügen? Hallo Snuffx, :wink: um ehrlich zu sein, ich verstehe den Sinn für Deinen Kürzungswunsch nicht. Der gezeigt - Peter K. - 25.01.2018 Hallo Snuffx, ![]() um ehrlich zu sein, ich verstehe den Sinn für Deinen Kürzungswunsch nicht. Der gezeigte Code stellt ja einen Vollsystemgenerator mit allen 49 Zahlen dar. Üblicherweise wird ein solches Vollsystem zum Vergleich mit einem Kürzungssystem gebraucht. Um z.B. die Gewinntabellen zu erstellen. Wenn das Vollsystem nun selbst gekürzt werden soll, um möglicherweise selbst ein gekürztes System zu erstellen, wird es mit den Kürzungsbedingungen (im Code) sehr schnell unübersichtlich. Bei kleineren Vollsystemen macht die Kürzung erst recht keinen Sinn, weil ja ein Platzhaltersystem erzeugt wird und die Kürzungsbedingungen (alle Vierlinge) bei der Wahlzahlenzuweisung nicht mehr zutreffend sind. Da ich aber nicht weiß, was Du mit Deinem Anliegen vor hast, hier also ein (mit heißer Nadel gestrickter) Lösungsversuch. Als geforderte Bedingung habe ich die Eliminierung aller Vierlinge im Vollsystem genommen. Um das Testsystem überschaubar zu halten, habe ich das kleinere 12er-Vollsystem mit 924 Reihen genommen : Code: Sub Lotto_moegliche_Kombinationen() Ich hoffe, Du kannst das für Deine Zwecke gebrauchen. Beste Grüße Peter K. . |