Re: Randomize Timer
04.10.2002 18:15:51
Chris
Hallo FritzMeine 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