Hi,
hier mal ein kleines Lottoprogramm
was ich mal gebastelt habe.
Das kannst du dir ja anpassen.
Sub lottozahlen()
Dim zahlen(6) As Integer
For i = 1 To 6
nochmal:
zahl = Int(49 * Rnd()) + 1
For c = 1 To 6
If zahl = zahlen(c) Then GoTo nochmal
Next c
zahlen(i) = zahl
Next i
For i = 1 To 6
Cells(i, 1) = zahlen(i)
Next i
End Sub
gruß Uwe