Zufallsgenerator
Martin Zalmezs
ich möchte mit Excel einen Zufallsgenerator erstellen, um bei bei einem
Tennisspiel mit 6 Spielern immer neue Paarungen herauszubekommen (so nach
dem Schema 1-4 oder Klaus-Karin). Kann mir da jemand helfen, da ich mich mit
Excel überhaupt nicht auskenne und auch nicht wüßte, wie ich anfange!
bye
Martin :-)
--
Mail : Ich...@bruce-lee.com
Home : http://home.t-online.de/home/Martin.Zalmezs
ICQ : 17700638
Martin Beck
Martin Zalmezs schrieb in Nachricht <6sp3uj$j99$1...@news02.btx.dtag.de>...
>Hallo Leute,
>ich möchte mit Excel einen Zufallsgenerator erstellen, um bei bei einem
>Tennisspiel mit 6 Spielern immer neue Paarungen herauszubekommen (so nach
>dem Schema 1-4 oder Klaus-Karin). Kann mir da jemand helfen, da ich mich
mit
>Excel überhaupt nicht auskenne und auch nicht wüßte, wie ich anfange!
Hallo Martin,
kopiere folgende Formel in 2 Spalten und so viele Zeilen, wie Du Begegnungen
festlegen willst:
=RUNDEN(1+6*ZUFALLSZAHL();0)
In den beiden Spalten stehen sich dann jeweils zwei zufällig ausgewählte
ganze Zahlen von 1 bis 6 gegenüber, die die Paarung kennzeichnen, also z.B.
Spieler 2 gegen Spieler 4. Problem: bei dieser "Billiglösung" kann es
vorkommen, daß Kombinationen wie 3 gegen 3 vorkommen.
Wenn Du statt Zahlen namen benötigst, kann man das durch die Funktion
SVERWEIS erledigen. Melde Dich dann noch einmal.
Gruß
Martin Beck
Hans W. Herber
folgende Voraussetzungen:
Die Spielernamen stehen in den Zellen A1:A6
Die Paarungen sollen in die Zellen B1:C3
Folgendes Makro bei XL5/7 in ein englischsprachiges, bei XL8 ein allgemeines
Modulblatt einfügen und starten:
Sub Zufall()
Dim Bereich As Range, C As Range, F As Range
Dim n%
Set Bereich = Range("b1:c3")
Bereich.ClearContents
For Each C In Bereich.Cells
Set F = Range("A1")
While Not F Is Nothing
n = Int((6 * Rnd) + 1)
Set F = Bereich.Find(Cells(n, 1))
Wend
C = Cells(n, 1)
Next C
End Sub
hans
########################################################
# Herber's Excel-Server - letztes Update: 31.08.98 #
# http://www.herber.de - Microsoft MVP - Excel #
# Neu bei den Demos97: Der Office-Assistent in Aktion #
# Excel-NG-Autoren: http://www.herber.de/dejanews.htm #
########################################################
Martin Zalmezs <Martin....@t-online.de> wrote in message
6sp3uj$j99$1...@news02.btx.dtag.de...
Martin Zalmezs
Aber ich habe vergessen zu erwähnen, das jeder Spieler immer nur in einer
Begegnung vorkommen darf und dann eben auch nur einmal. Die Spieler sollen
untereinander in immer neuen Begegnungen spielen und gleich oft (sonst ist
einer noch beleidigt, weil er gar nicht drankommt. Vielleicht hast Du da
auch eine Idee wie man das realisiert.
byr
Martin :-)
--
Mail : Ich...@bruce-lee.com
Home : http://home.t-online.de/home/Martin.Zalmezs
ICQ : 17700638
>Hallo Martin,
Martin Zalmezs
allgemeines
>Modulblatt einfügen und starten:
Das sagt mir leider gar nix! Wie mach ich das? Eine Beschreibung wäre nett!
bye
Martin ?:-)
Hans W. Herber
die Angabe der Excel-Version wäre schön gewesen.
Bei XL5/7 gehst Du zum Einfügen eines Modulblattes über Menü EINFÜGEN /
MODUL / VISUAL BASIC MODUL.
Bezüglich der Spracheinstellung sieh Dir an:
http://www.herber.de/mailing/001797v.txt
Bei XL8 mit Alt+F11 in die Entwicklungsumgebung wechseln, dort fügst Du über
Menü EINFÜGEN / MODUL ein allgemeines Modul ein.
Und noch ein heißer Tip: Menü "?"
hans
########################################################
# Herber's Excel-Server - letztes Update: 31.08.98 #
# http://www.herber.de - Microsoft MVP - Excel #
# Neu bei den Demos97: Der Office-Assistent in Aktion #
# Excel-NG-Autoren: http://www.herber.de/dejanews.htm #
########################################################
Martin Zalmezs <Martin....@t-online.de> wrote in message
6sr8qb$7em$2...@news00.btx.dtag.de...
Martin Beck
Martin Zalmezs schrieb in Nachricht <6sr8q8$7em$1...@news00.btx.dtag.de>...
>Danke für Deine Mühe!
>Aber ich habe vergessen zu erwähnen, das jeder Spieler immer nur in einer
>Begegnung vorkommen darf und dann eben auch nur einmal. Die Spieler sollen
>untereinander in immer neuen Begegnungen spielen und gleich oft (sonst ist
>einer noch beleidigt, weil er gar nicht drankommt. Vielleicht hast Du da
>auch eine Idee wie man das realisiert.
Hallo Martin,
Hans Herber hat Dir ja schon eine VBA-Lösung gepostet. Aber bei der
Problembeschreibung ist m.E. ein Excel-Einsatz überhaupt nicht notwendig.
Bei 6 Spielern gibt es genau 15 verschiedene Spielpaarungen:
1 2
1 3
1 4
1 5
1 6
2 3
2 4
2 5
2 6
3 4
3 5
3 6
4 5
4 6
5 6
Schreibe sie auf 15 Zettel, einmal kurz mischen und die Reihenfolge
notieren, das war's ;-)
Im übrigen sollte man sich immer bemühen, ein Problem so exakt wie möglich
zu beschreiben. Das hilft zu vermeiden, daß sich eine Menge Leute in der NG
unnötig Gedanken machen und Arbeit(szeit) investieren.
Gruß
Martin Beck