Zufallsgenerierung

Forumthread: Zufallsgenerierung

Zufallsgenerierung

12.10.2004 20:28:53

Matthias

Hallo Leute,
ich habe folgendes Problem:
Die Werte der Selektion (C2:C200) sollen im Bereich (D2:D200) zufällig wieder gegeben werden.
Hat jeamand von euch eine Idee?
Gruß und Danke
Matthias

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zufallsgenerierung

K.Rola
AW: Zufallsgenerierung

12.10.2004 23:58:39

Matthias
AW: Zufallsgenerierung

nighty
AW: Zufallsgenerierung

13.10.2004 00:06:32

Matthias
AW: Zufallsgenerierung

nighty
AW: Zufallsgenerierung

13.10.2004 00:18:21

Matthias

AW: Zufallsgenerierung

K.Rola

Hallo,
suchst du eine Formel- oder VBA-Lösung?
Gruß K.Rola

AW: Zufallsgenerierung

12.10.2004 23:58:39

Matthias

Am besten eine VBA-Lösung, aber eine Formel wäre auch nicht schlecht!

AW: Zufallsgenerierung

nighty

hi Matthias :)
wie gewuenscht :))
gruss nighty


Sub makro01()
Randomize Timer
ReDim zuzahl(199) As Integer
Dim zahl(199) As Integer
Dim endeindex As Integer
Dim allezahlen As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zaehler1 As Integer
endeindex = 199
For allezahlen = 1 To 199
zuzahl(allezahlen) = Cells(allezahlen + 1, 3)
Next allezahlen
For ziehung = 1 To 199
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
zaehler1 = zaehler1 + 1
Cells(zaehler1 + 1, 4) = zahl(ziehung)
Next ziehung
End Sub

AW: Zufallsgenerierung

13.10.2004 00:06:32

Matthias

Hallo,
danke schon mal. Aber das ganze soll nicht mit Zahlen sondern mit Wörtern passieren.
Eine Idee?
Gruß
Matthias

AW: Zufallsgenerierung

nighty

hi Matthias :)
:))
gruss nighty
Randomize Timer
ReDim zuzahl(199) As String
Dim zahl(199) As String
Dim endeindex As Integer
Dim allezahlen As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zaehler1 As Integer
endeindex = 199
For allezahlen = 1 To 199
zuzahl(allezahlen) = Cells(allezahlen + 1, 3)
Next allezahlen
For ziehung = 1 To 199
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = zuzahl(gezogen)
zuzahl(gezogen) = zuzahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve zuzahl(endeindex)
zaehler1 = zaehler1 + 1
Cells(zaehler1 + 1, 4) = zahl(ziehung)
Next ziehung
End Sub

AW: Zufallsgenerierung

13.10.2004 00:18:21

Matthias

Hallo Matthias,


Sub zufall()
Const Spalte = 3
Dim i, lz
lz = 200
Randomize Timer
Application.ScreenUpdating = False
For i = 2 To lz
Cells(i, Spalte + 1) = Format(Rnd(), "0.00000000") & Cells(i, Spalte)
Next i
'MsgBox "we"
Cells(1, Spalte + 1).EntireColumn.Sort Key1:=Cells(2, Spalte + 1), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For i = 2 To lz
Cells(i, Spalte + 1) = Mid(Cells(i, Spalte + 1), 11)
Next i
Application.ScreenUpdating = True
End Sub

Gruß Matthias G

Forumthread: Zufallsgenerierung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread