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

Zahlen mischen

Zahlen mischen
18.04.2007 21:07:00
Lars

Hi,
ich muss zu Testzwecken die Zahlen von 1 bis 100 in eine zufällige Reihenfolge bringen.
Die Hürde, es muss funktionieren, ohne Zellen zu benutzen, also VBA pur.
Könnte mir vorstellen ein Array(1 to 100, 1 to 2), in der zweiten Dimension
Zufallszahlen und dann nach der zweiten Dimension sortieren. Leider kann
ich das nicht umsetzen.
Bin natürlich auch für andere Ansätze offen.
Danke schon mal
Grüße Lars

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlen mischen
18.04.2007 21:56:03
Michael
hi lars :-)
ein beispiel :)
gruss nighty
Option Explicit


Sub makro01()
Randomize Timer
ReDim zuzahl(100) As String
Dim zahl(100) As Variant
Dim endeindex As Integer
Dim allezahlen As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zaehler1 As Integer
endeindex = 100
For allezahlen = 1 To 100
zuzahl(allezahlen) = allezahlen
Next allezahlen
For ziehung = 1 To 100
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, 1) = zahl(ziehung)
Next ziehung
End Sub


Anzeige
danke dir! oT
19.04.2007 09:36:39
Lars
l

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige