Absty
1
Guten Tag,
habe mich hier schon umgeschaut aber leider nichts gefunden zu meinem thema bzw komme ich nicht mit den änderungen klar ;(
nun zum thema: ich hab eine exceltabelle mit 25 werten, spalte 1a - 25a. aus dieser brauche 3 zufällig gewählte werte in einer neuen spalte.
da ich diese werte dann per strg + c in ein satzprogramm ala InDesign übertragen muss, bräuchte ich das ganze in einer spalte untereinander.
Nun das heikle, ich brauche das ganze 500mal (aus den 25 grundwerten je 3stk) wobei sich die 3 werte untereinander auf keinen fall gleichen dürfen.
gibt es da eine möglichkeit das ganze nicht 500 mal ^per hand durchlaufen zu lassen?! da wird man ja sonst bekloppt 
nun zum thema: ich hab eine exceltabelle mit 25 werten, spalte
1a - 25a. aus dieser brauche 3 zufällig gewählte werte in
einer neuen spalte.
Nun das heikle, ich brauche das ganze 500mal (aus den 25
grundwerten je 3stk) wobei sich die 3 werte untereinander auf
keinen fall gleichen dürfen.
Hallo Absty,
so vielleicht:
Sub tt()
Dim Zei As Long, Z As Long, N As Long
For Zei = 1 To 2000 Step 4
Cells(Zei, 2) = Cells(Int(Rnd() \* 26) + 1, 1)
Cells(Zei + 1, 2) = Cells(Int(Rnd() \* 26) + 1, 1)
While Cells(Zei, 2) = Cells(Zei + 1, 2)
Cells(Zei + 1, 2) = Cells(Int(Rnd() \* 26) + 1, 1)
Wend
Cells(Zei + 2, 2) = Cells(Int(Rnd() \* 26) + 1, 1)
While Cells(Zei, 2) = Cells(Zei + 2, 2) Or Cells(Zei + 1, 2) = Cells(Zei + 2, 2)
Cells(Zei + 2, 2) = Cells(Int(Rnd() \* 26) + 1, 1)
Wend
Next Zei
End Sub
Gruß
Reinhard