Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zufallsgenerierung

Zufallsgenerierung
12.10.2004 18: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
Anzeige
AW: Zufallsgenerierung
K.Rola
Hallo,
suchst du eine Formel- oder VBA-Lösung?
Gruß K.Rola
AW: Zufallsgenerierung
12.10.2004 21: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

Anzeige
AW: Zufallsgenerierung
12.10.2004 22: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
Anzeige
AW: Zufallsgenerierung
12.10.2004 22: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige