Microsoft Excel

Herbers Excel/VBA-Archiv

Zufallsausgabe eines Bereiches

Betrifft: Zufallsausgabe eines Bereiches von: Matthias Kaiser
Geschrieben am: 17.09.2004 19:19:12

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

  


Betrifft: AW: Zufallsausgabe eines Bereiches von: nighty
Geschrieben am: 17.09.2004 19:43:54

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


  


Betrifft: AW: Zufallsausgabe eines Bereiches von: nighty
Geschrieben am: 17.09.2004 20:35:32

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



  


Betrifft: Vokabeldatei in Excel von: Beate Schmitz
Geschrieben am: 18.09.2004 00:33:00

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


 

Beiträge aus den Excel-Beispielen zum Thema "Zufallsausgabe eines Bereiches"