Zufallsliste
01.08.2003 01:01:41
Nepumuk
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
"Den Text da oben hab ich schonmal geschrieben und das hier unten hatte ich als Antwort bekommen aber ich weiß net wie ich das auf mein worksheet beziehe...ich hab keine ahnung von vba..."
Betrifft: AW: Zufallsliste aus geordneter Liste
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