MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 18.01.2018, 01:30   #1
Cyber1805
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Hilfe bei Zufallsgenerator

Hallo,
ich mal wieder. Unsere Bestellliste für Frühstück steht soweit und klappt super.
Da es immer mal wieder probleme gibt, wer denn nun einkaufen geht, habe ich einen Zufallsgenerator eingebaut. Dieser klappt auch gut, allerdings will ich das jetzt so lösen das nur jemand aus dem Kreis der Besteller ausgewählt wird und niemand der überhaupt nicht bestellt hat.

Ist-Zustand
Habe jetzt in Spalte AM eine Formel (=WENN(AK9>0;A9;" ")) das dort der
Name auftaucht, wenn in Spalte AK eine Zahl größer 0 steht.
Der Zufalls-Generator in Feld B27 zieht dann mit folgender Formel: =INDEX(AM9:AM25;AUFRUNDEN(ZUFALLSZAHL()*ANZAHL2(AM9:AM25);0)) einen zufälligen Einkäufer, allerdings gibt auch einen leeres Feld aus, wenn in Spalte AM kein Name auftaucht.
Ich will also das der Generator nur Felder nimmt, die nicht leer sind.
Kann ich das irgendwie bewerkstelligen??

Habe die Datei mal angehangen.
Angehängte Dateien
Dateityp: zip FrühstückTagesgericht07.03.16 - anonym.xls.zip (166,0 KB, 2x aufgerufen)
Cyber1805 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 07:17   #2
hary
MOF Guru
MOF Guru
Standard

Moin
Mach in AM6:AM25 eine Liste mit nur Bestellern.
B27 hab ich den Zellenverbund(muss) rausgenommen,wegen der Matrixformel.
edit: in B27(hatte +1 vergessen) Formel aendern in



Frühstücksliste
 B
27hary

verwendete Formeln
Zelle Formel Bereich R1C1 für Add In
B27{=INDEX(AM6:AM25;ZUFALLSBEREICH(MIN(WENN(AM6:AM25<>"";ZEILE(AM6:AM25)));MAX(WENN(AM6:AM25<>"";ZEILE(AM6:AM25))+1))-6;1)}$B$27 =INDEX(R[-21]C[37]:R[-2]C[37],RANDBETWEEN(MIN(IF(R[-21]C[37]:R[-2]C[37]<>"",ROW(R[-21]C[37]:R[-2]C[37]))),MAX(IF(R[-21]C[37]:R[-2]C[37]<>"",ROW(R[-21]C[37]:R[-2]C[37]))+1))-6,1)
{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!


http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

Siehe Anhang.
gruss hary
Angehängte Dateien
Dateityp: zip FrühstückTagesgericht07.03.16 - neu.zip (167,5 KB, 2x aufgerufen)

Geändert von hary (18.01.2018 um 07:33 Uhr).
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2018, 22:16   #3
Cyber1805
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo hary,
das sieht schon gut aus. Jetzt will ich nur die obersten 3 Zeilen aus dem Zufallsgenerator ausschließen, da diese 3 niemals einkaufen werden, auch wenn sie bestellt haben. (Ober sticht Unter, wenn Du weißt was ich meine )

Wenn ich das richtig verstanden habe, muss ich dann in Spalte AM den Code von:
Code:

=WENNFEHLER(INDEX($A$6:$A$25;KKLEINSTE(WENN($AK$6:$AK$25>0;ZEILE($1:$20));ZEILEN($1:1)));"")
auf
Code:

=WENNFEHLER(INDEX($A$9:$A$25;KKLEINSTE(WENN($AK$9:$AK$25>0;ZEILE($1:$20));ZEILEN($1:1)));"")
ändern?

Oder doch anders?


EDIT: 2. Code nochmal geändert, hatte da was übersehen.

Geändert von Cyber1805 (18.01.2018 um 22:19 Uhr).
Cyber1805 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.01.2018, 06:34   #4
hary
MOF Guru
MOF Guru
Standard

Moin
Formel in AM6 und runterziehen.



Frühstücksliste
 AM
64

verwendete Formeln
Zelle Formel Bereich R1C1 für Add In
AM6{=WENNFEHLER(INDEX($A$9:$A$25;KKLEINSTE(WENN($AK$9:$AK$25>0;ZEILE($1:$17));ZEILE N($1:1)));"")}$AM$6 =IFERROR(INDEX(R9C1:R25C1,SMALL(IF(R9C37:R25C37>0,ROW(R1:R17)),ROWS(R1:R[-5]))),"")
{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!


http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

edit:wenn nur die ersten 3 bestellen, muessen diese verhungern!? LOL ;-))
gruss hary

Geändert von hary (19.01.2018 um 06:37 Uhr).
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.01.2018, 15:08   #5
Cyber1805
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Tach,
irgendwas klappt nicht. Habe ide Formel in AM6 wie von die geschrieben geändert, aber irgendwie wird jetzt kein name mehr aufgeführt.
Angehängte Dateien
Dateityp: zip FrühstückTagesgericht07.03.16 - neu.xls.zip (166,8 KB, 5x aufgerufen)
Cyber1805 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.01.2018, 05:31   #6
hary
MOF Guru
MOF Guru
Standard

Moin
War ein paar Tage offline.
Die Formel klappt schon. Du musst diese nur als Matrixformel eingeben.

Zitat:

{} Matrixformel mit Strg+Umschalt+Enter abschließen

also
=WENNFEHLER(INDEX($A$9:$A$25;KKLEINSTE(WENN($AK$9:$AK$25>0;ZEILE($1:$17));ZEILE N($1:1)));"")
eingeben
und abschliessen mit: Strg+Umschalt+Enter
diese Tastenkombi erzeugt die geschweiften Klammern
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.01.2018, 22:40   #7
Cyber1805
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Sehr gut. Das hatte ich überlesen.

Danke hary
Cyber1805 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 01.02.2018, 02:54   #8
Sulprobil
Neuer Benutzer
Neuer Benutzer
Standard

Eigentlich ist dies eine schöne Übungsaufgabe für die Anwendung von sbExactRandHistogrm (google danach).
Man kann eine "radikale" historische Fairness erreichen, wenn man die Summe aller historischen Bestellungen als Wahrscheinlichkeit nimmt.
Da muss man auch keine Nichtbesteller ausschließen, weil sie bei einer Wahrscheinlichkeit von 0 nie gezogen werden.

Viele Grüße,
Bernd P
Sulprobil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:52 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.