Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Randomize Timer

Forumthread: Randomize Timer

Randomize Timer
04.10.2002 17:15:39
Fritz Sanne
Guten Tag
ich habe in einem Tabellenblatt 5 Spalten und möchte diese einzeln durcheinanderwürfeln, um immer wieder neue Kombinationen zu erhalten. Es sollen Nonsense-Sätze gebaut werden.
Wie kann ich den Zufallsgenerator da einbauen?
vielen Dank für Tipps.
Fritz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Randomize Timer
04.10.2002 18:15:51
Chris
Hallo Fritz

Meine letzte gute Tat vor dem WOOOOCHENENDE juhhhuuuu

Dim Zufallszahl1, Zufallszahl2, Bereich
For i = 1 To 20
Zufallszahl1 = Int((5 * Rnd) + 1)
If Zufallszahl1 = 1 Then Bereich = "A:A"
If Zufallszahl1 = 2 Then Bereich = "B:B"
If Zufallszahl1 = 3 Then Bereich = "C:C"
If Zufallszahl1 = 4 Then Bereich = "D:D"
If Zufallszahl1 = 5 Then Bereich = "E:E"
Columns(Bereich).Select
Selection.Cut
Zufallszahl2 = Int((5 * Rnd) + 1)
If Zufallszahl1 = Zufallszahl2 Then GoTo ende
If Zufallszahl2 = 1 Then Bereich = "A:A"
If Zufallszahl2 = 2 Then Bereich = "B:B"
If Zufallszahl2 = 3 Then Bereich = "C:C"
If Zufallszahl2 = 4 Then Bereich = "D:D"
If Zufallszahl2 = 5 Then Bereich = "E:E"
Columns(Bereich).Select
Selection.Insert Shift:=xlToRight
ende:
Next i

Gruss
Chris

Anzeige
Re: Randomize Timer
05.10.2002 18:01:40
Fritz Sanne
Hallo Chris,
danke für Deine schnelle Antwort. Es zwar nichht ganz das, was ich meinte, bringt mich aber weiter, weil ich beginne zu verstehen.
Fritz
;

Beliebteste Forumthreads (12 Monate)

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