Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallsausgabe eines Bereiches

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
Anzeige
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
Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige