PSD-Tutorials.de
Forum für Design, Fotografie & Bildbearbeitung
Tutkit
Agentur
Hilfe
Kontakt
Start
Forum
Aktuelles
Besonderer Inhalt
Foren durchsuchen
Tutorials
News
Anmelden
Kostenlos registrieren
Aktuelles
Suche
Suche
Nur Titel durchsuchen
Von:
Menü
Anmelden
Kostenlos registrieren
App installieren
Installieren
JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder einen
alternativen Browser
verwenden.
Antworten auf deine Fragen:
Neues Thema erstellen
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
Aus Liste bestimmte Zahlen ausgeben
Beitrag
<blockquote data-quote="owieortho" data-source="post: 2710063" data-attributes="member: 443210"><p>Im Bereich A2:A31 trägst Du Deine 30 Zahlen ein.</p><p>Im nächsten Schritt erstellst Du eine Tabelle mit fünf Spalten für die Tipps und sechs Zeilen für jede Zahl in einem Tipp. In die erste Zelle trägst Du ein:</p><p><span style="color: #00b359">=INDEX($A$2:$A$31;ZUFALLSBEREICH(1;30))</span></p><p>Das holt Dir eine zufällige Zahl aus dem Zahlenvorrat. Übertrage diese Funktion auf alle 30 Zellen. Du kannst mit F9 testen, wie es mit jeder Neuberechnung neue Zahlenkombinationen erstellt.</p><p>Nun musst Du die Fälle wiederholen, in denen in einem Tipp Zahlen mehrfach vorkommen. Hierzu wertest Du die sechs Zahlen eines Tipps wie folgt aus (Beispiel für Zelle D8):</p><p><span style="color: #00b359">=WENN(ODER(D2=D3;D2=D4;D2=D5;D2=D6;D2=D7;D3=D4;D3=D5;D3=D6;D3=D7;D4=D5;D4=D6;D4=D7;D5=D6;D5=D7;D6=D7);"dup";"")</span></p><p>Hierbei sind die Zellen D2:H7 die generierten Zahlen. Sollten Doppelungen in einer Spalte auftreten, wird in der Zelle (D8) "dup" angezeigt. Übertrage die Formel auf die benachbarten Zellen (E8:H8). Auch jetzt kannst Du mit wiederholtem F9 testen, bis alle sechs Tipps Wiederholungsfrei sind. In I8 kannst Du das auch anzeigen lassen:</p><p><span style="color: #00b359">=WENN(ODER(D8="dup";E8="dup";F8="dup";G8="dup";H8="dup");"ungültig";"Deine Tipps")</span></p><p>Du siehst ein "ungültig", wenn auch nur einer der Tipps Doppelungen enthält. Erst wenn alle fünf Tipps doppelungsfrei sind, wird "Deine Tipps" gemeldet.</p><p>Jetzt müsstest Du so lange F9 wiederholen, bis das der Fall ist. Anschließend D2:H7 kopieren und an anderer Stelle die <strong>Werte</strong> einfügen. Schließlich noch jede Spalte eines Tipps sortieren. Für diese Schritte habe ich ein Makro aufgezeichnet und angepasst:</p><p><span style="color: #00b359">Sub Aut<img src="/styles/default/xenforo/smilies/question.gif" class="smilie" loading="lazy" alt="o_O" title="Er... what? o_O" data-shortname="o_O" />pen() </span></p><p><span style="color: #00b359"><span style="color: #ff0000">' Anstelle des blöden Smiley sollte Auto*Open, wobei das Sternchen durch einen Underscore ersetzt gehört</span></span></p><p><span style="color: #00b359">Do Until Range("I8").Value = "Deine Tipps"</span></p><p><span style="color: #00b359"> Calculate</span></p><p><span style="color: #00b359">Loop</span></p><p><span style="color: #00b359"> Range("D2:H7").Select</span></p><p><span style="color: #00b359"> Selection.Copy</span></p><p><span style="color: #00b359"> Range("D10").Select</span></p><p><span style="color: #00b359"> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _</span></p><p><span style="color: #00b359"> :=False, Transpose:=False</span></p><p><span style="color: #00b359"> Range("D10<img src="/styles/default/xenforo/smilies/biggrin.gif" class="smilie" loading="lazy" alt=":D" title="Big Grin :D" data-shortname=":D" />15").Select</span></p><p><span style="color: #00b359"><span style="color: #ff0000">' Hier steht DoppelpunktD anstelle des Smiley, weiter unten nochmals</span></span></p><p><span style="color: #00b359"> Application.CutCopyMode = False</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D10"), _</span></p><p><span style="color: #00b359"> SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _</span></p><p><span style="color: #00b359"> xlSortTextAsNumbers</span></p><p><span style="color: #00b359"> With ActiveWorkbook.Worksheets("Tabelle1").Sort</span></p><p><span style="color: #00b359"> .SetRange Range("D10<img src="/styles/default/xenforo/smilies/biggrin.gif" class="smilie" loading="lazy" alt=":D" title="Big Grin :D" data-shortname=":D" />15")</span></p><p><span style="color: #00b359"> .Header = xlNo</span></p><p><span style="color: #00b359"> .MatchCase = False</span></p><p><span style="color: #00b359"> .Orientation = xlTopToBottom</span></p><p><span style="color: #00b359"> .SortMethod = xlPinYin</span></p><p><span style="color: #00b359"> .Apply</span></p><p><span style="color: #00b359"> End With</span></p><p><span style="color: #00b359"> Range("E10:E15").Select</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("E10"), _</span></p><p><span style="color: #00b359"> SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _</span></p><p><span style="color: #00b359"> xlSortTextAsNumbers</span></p><p><span style="color: #00b359"> With ActiveWorkbook.Worksheets("Tabelle1").Sort</span></p><p><span style="color: #00b359"> .SetRange Range("E10:E15")</span></p><p><span style="color: #00b359"> .Header = xlNo</span></p><p><span style="color: #00b359"> .MatchCase = False</span></p><p><span style="color: #00b359"> .Orientation = xlTopToBottom</span></p><p><span style="color: #00b359"> .SortMethod = xlPinYin</span></p><p><span style="color: #00b359"> .Apply</span></p><p><span style="color: #00b359"> End With</span></p><p><span style="color: #00b359"> Range("F10:F15").Select</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("F10"), _</span></p><p><span style="color: #00b359"> SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _</span></p><p><span style="color: #00b359"> xlSortTextAsNumbers</span></p><p><span style="color: #00b359"> With ActiveWorkbook.Worksheets("Tabelle1").Sort</span></p><p><span style="color: #00b359"> .SetRange Range("F10:F15")</span></p><p><span style="color: #00b359"> .Header = xlNo</span></p><p><span style="color: #00b359"> .MatchCase = False</span></p><p><span style="color: #00b359"> .Orientation = xlTopToBottom</span></p><p><span style="color: #00b359"> .SortMethod = xlPinYin</span></p><p><span style="color: #00b359"> .Apply</span></p><p><span style="color: #00b359"> End With</span></p><p><span style="color: #00b359"> Range("G10:G15").Select</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("G10"), _</span></p><p><span style="color: #00b359"> SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _</span></p><p><span style="color: #00b359"> xlSortTextAsNumbers</span></p><p><span style="color: #00b359"> With ActiveWorkbook.Worksheets("Tabelle1").Sort</span></p><p><span style="color: #00b359"> .SetRange Range("G10:G15")</span></p><p><span style="color: #00b359"> .Header = xlNo</span></p><p><span style="color: #00b359"> .MatchCase = False</span></p><p><span style="color: #00b359"> .Orientation = xlTopToBottom</span></p><p><span style="color: #00b359"> .SortMethod = xlPinYin</span></p><p><span style="color: #00b359"> .Apply</span></p><p><span style="color: #00b359"> End With</span></p><p><span style="color: #00b359"> Range("H10:H15").Select</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear</span></p><p><span style="color: #00b359"> ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("H10"), _</span></p><p><span style="color: #00b359"> SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _</span></p><p><span style="color: #00b359"> xlSortTextAsNumbers</span></p><p><span style="color: #00b359"> With ActiveWorkbook.Worksheets("Tabelle1").Sort</span></p><p><span style="color: #00b359"> .SetRange Range("H10:H15")</span></p><p><span style="color: #00b359"> .Header = xlNo</span></p><p><span style="color: #00b359"> .MatchCase = False</span></p><p><span style="color: #00b359"> .Orientation = xlTopToBottom</span></p><p><span style="color: #00b359"> .SortMethod = xlPinYin</span></p><p><span style="color: #00b359"> .Apply</span></p><p><span style="color: #00b359"> End With</span></p><p><span style="color: #00b359"> Range("D10:H15").Select</span></p><p><span style="color: #00b359">End Sub</span></p><p>Nicht vergessen, jetzt muss das Ganze als.xlsm abgespeichert werden. Jedes Mal, wenn Du die Arbeitsmappe öffnest, werden Dir sofort Deine neuen Zahlen generiert und schön ordentlich in D10:H15 angezeigt.</p><p></p><p>Ach und falls Du damit was gewinnst.... <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile :)" loading="lazy" data-shortname=":)" /></p><p></p><p>O.</p></blockquote><p></p>
[QUOTE="owieortho, post: 2710063, member: 443210"] Im Bereich A2:A31 trägst Du Deine 30 Zahlen ein. Im nächsten Schritt erstellst Du eine Tabelle mit fünf Spalten für die Tipps und sechs Zeilen für jede Zahl in einem Tipp. In die erste Zelle trägst Du ein: [COLOR=#00b359]=INDEX($A$2:$A$31;ZUFALLSBEREICH(1;30))[/COLOR] Das holt Dir eine zufällige Zahl aus dem Zahlenvorrat. Übertrage diese Funktion auf alle 30 Zellen. Du kannst mit F9 testen, wie es mit jeder Neuberechnung neue Zahlenkombinationen erstellt. Nun musst Du die Fälle wiederholen, in denen in einem Tipp Zahlen mehrfach vorkommen. Hierzu wertest Du die sechs Zahlen eines Tipps wie folgt aus (Beispiel für Zelle D8): [COLOR=#00b359]=WENN(ODER(D2=D3;D2=D4;D2=D5;D2=D6;D2=D7;D3=D4;D3=D5;D3=D6;D3=D7;D4=D5;D4=D6;D4=D7;D5=D6;D5=D7;D6=D7);"dup";"")[/COLOR] Hierbei sind die Zellen D2:H7 die generierten Zahlen. Sollten Doppelungen in einer Spalte auftreten, wird in der Zelle (D8) "dup" angezeigt. Übertrage die Formel auf die benachbarten Zellen (E8:H8). Auch jetzt kannst Du mit wiederholtem F9 testen, bis alle sechs Tipps Wiederholungsfrei sind. In I8 kannst Du das auch anzeigen lassen: [COLOR=#00b359]=WENN(ODER(D8="dup";E8="dup";F8="dup";G8="dup";H8="dup");"ungültig";"Deine Tipps")[/COLOR] Du siehst ein "ungültig", wenn auch nur einer der Tipps Doppelungen enthält. Erst wenn alle fünf Tipps doppelungsfrei sind, wird "Deine Tipps" gemeldet. Jetzt müsstest Du so lange F9 wiederholen, bis das der Fall ist. Anschließend D2:H7 kopieren und an anderer Stelle die [B]Werte[/B] einfügen. Schließlich noch jede Spalte eines Tipps sortieren. Für diese Schritte habe ich ein Makro aufgezeichnet und angepasst: [COLOR=#00b359]Sub Auto_Open() [COLOR=#ff0000]' Anstelle des blöden Smiley sollte Auto*Open, wobei das Sternchen durch einen Underscore ersetzt gehört[/COLOR][/COLOR] [COLOR=#00b359]Do Until Range("I8").Value = "Deine Tipps" Calculate Loop Range("D2:H7").Select Selection.Copy Range("D10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D10:D15").Select [COLOR=#ff0000]' Hier steht DoppelpunktD anstelle des Smiley, weiter unten nochmals[/COLOR][/COLOR] [COLOR=#00b359] Application.CutCopyMode = False ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D10"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("D10:D15") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E10:E15").Select ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("E10"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("E10:E15") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("F10:F15").Select ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("F10"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("F10:F15") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("G10:G15").Select ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("G10"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("G10:G15") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("H10:H15").Select ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("H10"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("H10:H15") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("D10:H15").Select End Sub[/COLOR] Nicht vergessen, jetzt muss das Ganze als.xlsm abgespeichert werden. Jedes Mal, wenn Du die Arbeitsmappe öffnest, werden Dir sofort Deine neuen Zahlen generiert und schön ordentlich in D10:H15 angezeigt. Ach und falls Du damit was gewinnst.... :) O. [/QUOTE]
Bilder bitte
hier hochladen
und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.
Zitate einfügen…
Authentifizierung
Wenn ▲ = 7, ▼ = 3, ◇ = 2 und die Summe von ▲ und ▼ durch ◇ geteilt wird, was ist das Ergebnis?
Antworten
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
Aus Liste bestimmte Zahlen ausgeben
Oben