Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zufallsliste aus geordneter Liste

Zufallsliste aus geordneter Liste
01.08.2003 00:09:45
Felix
Hi!
ich hab ne Liste von Zahlen von 1 bis 90 und daneben hab ich jeweils einen Text wo auch doppelt vorkommt in der Liste. Und ich versuch die Texte aus der Liste nach Zufall in einer anderen Liste auch von 1 bis 90 ausgeben zu lassen aber dann gemischt. Wie kann ich das am besten mit excel machen?
Also das siehst so ungefähr aus:
1 Tor
2 Tor
3 Chance
4 Chance
5 Chance
6 Gelb
7 nichts
...
So solls z.b. nachher aussehen
1 Chance
2 nichts
3 Gelb
4 Tor
5 Chance
6 Tor
7 Chance

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufallsliste aus geordneter Liste
01.08.2003 01:01:41
Nepumuk
Hallo Felix,
so z.B.:

Option Explicit
Public Sub Zufall()
Const anz = 90
Dim index1 As Integer, index2 As Integer
Dim fFeld(1 To anz) As Integer, iTemp As Integer, iZ As Integer
For index1 = 1 To anz
fFeld(index1) = index1
Next
For index2 = 1 To 3
For index1 = anz To 1 Step -1
Randomize Timer
iZ = Int((index1 * Rnd) + 1)
iTemp = fFeld(iZ)
fFeld(iZ) = fFeld(index1)
fFeld(index1) = iTemp
Next
Next
For index1 = 1 To anz
Worksheets(2).Cells(index1, 1) = index1
Worksheets(2).Cells(index1, 2) = Worksheets(1).Cells(fFeld(index1), 2)
Next
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige