Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallszahlen

Zufallszahlen
10.06.2002 15:30:22
Manu27
Hallo,

habe da mal ein kleines Problem.
Ich habe eine Reihe von Gerichten(ca. 50). Daraus möchte ich für jeden neuen Monat einen Speiseplan erstellen mit Hilfe des Zufallsbereiches. Ich möchte aber kein Gericht doppelt im Monat haben. Nun weiß ich leider nicht, mit welcher Formel ich das anstellen soll.
Vielleicht hat ja jemand eine Idee.
Bin für jeden Tipp dankbar.

Viele Grüße

Manuela

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zufallszahlen
10.06.2002 22:38:27
Hans W. Hofmann
Hallo Manuela,

ich hätte da mal eine Arrayfunktion:




Option Base 1
Function ZufallsVerteilung(n As Integer, Optional init As Boolean = True)

Dim chk As New Collection

ReDim A(n, 1) As Integer

If init Then Randomize

On Error Resume Next

Do

    r = Int(1 + (Rnd * n))

    chk.Add Item:=r, key:="0" & r

Loop Until chk.Count = n

On Error GoTo 0

For i = 1 To n: A(i, 1) = chk(i): Next

ZufallsVerteilung = A

End Function

Eingesetzt wird die Funktion durch Markieren von 50 Zellen in einer Spalte
=zufallsverteilung(50;WAHR)
Strg+Umschalt+Eingabe
Sie berechnet die Zufallszahlen von 1 bis 50 un verteilt sie auf die 50 markierten Zellen.

Gruß HW

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige