Hallo! Ich probiere mich derzeit an Excel aus und möchte mit VBA einen Zufallsgenerator machen. Nun habe ich das Problem, dass die Zahlen sich manchmal wiederholen. Das würde ich gerne verhindern. Hier mein Code: 

Sub ZufallDoppelSort()
  reihe = 1 
  spalte = 1
  Randomize Timer
  For zahlen = 1 To 6 
    zfz = Int((49 * Rnd) + 1) 
    Cells(reihe, spalte) = zfz 
    reihe = reihe + 1 
  Next zahlen
End Sub

Leider finde ich bei Google nichts das mir hilft.

lg