Zufallsausgabe eines Bereiches

Forumthread: Zufallsausgabe eines Bereiches

17.09.2004 19:19:12

Matthias Kaiser

Hallo Leute,
ich habe folgendes Problem:
Ein Bereich (C2:C10) hat bestimmt Werte (z.B. Vokabeln).
IM Bereich (D2:D10) sollen diese Vokabeln (die WErte) in zufälliger Reinfolge aufgeführt werden.
Excel liefert keine vorgefertige Funktion.
Hat jemand von euch ein VBA-Beispiel zu diesem Problem?
Ich danke euch
Gruß aus dem Schwarzwald
Matthias Kaiser

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zufallsausgabe eines Bereiches

17.09.2004 19:43:54

nighty
AW: Zufallsausgabe eines Bereiches

17.09.2004 20:35:32

nighty
Vokabeldatei in Excel

18.09.2004 00:33:00

Beate Schmitz

AW: Zufallsausgabe eines Bereiches

17.09.2004 19:43:54

nighty

hi mathias :)
wie gewuenscht :)
gruss nighty
einzufuegen unter alt f11 (vbeditor)/einfuegen/modul
Dim allezahlen As Integer
Dim ziehung As Integer
Dim gezogen As Integer
Dim zaehler1 As Integer
endeindex = 10
For allezahlen = 1 To 10
zuzahl(allezahlen) = Cells(allezahlen + 1, 3)
Next allezahlen
For ziehung = 1 To 10
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, 4) = zahl(ziehung)
Next ziehung
End Sub

AW: Zufallsausgabe eines Bereiches

17.09.2004 20:35:32

nighty

hi mathias :)
ups da fehlte ein stueck :)
gruss nighty
Option Explicit


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

Vokabeldatei in Excel

18.09.2004 00:33:00

Beate Schmitz

Hallo Matthias,
ich habe mal eine Vokabeldatei geschrieben mit Zufallsgenerator drin. Ist für Englisch (habe die aber auch für Französich und Latei vorliegend). Siehe Anhang inkl. Updates im Thread:
http://www.excel-center.de/forum/read.php?f=2&i=630&t=630
Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

Forumthread: Zufallsausgabe eines Bereiches

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread