Sub ZufallsauswahlTueteSticker()
Const iAnzMotive As Integer = 20
Const iAnzStickerInTuete As Integer = 5
Dim aiSticker() As Integer
ReDim aiSticker(iAnzStickerInTuete)
Dim i As Integer, j As Integer, iZufallssticker As Integer
Dim blnStickerSchonVorhanden As Boolean
Dim shRandom As Worksheet
Set shRandom = Worksheets(1)
For i = 0 To iAnzStickerInTuete - 1
aiSticker(i) = 0
Next i
i = 0
Do Until i >= iAnzStickerInTuete
Randomize
iZufallssticker = CInt(Rnd() * (iAnzMotive - 1)) + 1
blnStickerSchonVorhanden = False
For j = 0 To i - 1
If aiSticker(j) = iZufallssticker Then
blnStickerSchonVorhanden = True
Exit For
End If
Next j
If blnStickerSchonVorhanden = False Then
aiSticker(i) = iZufallssticker
shRandom.Cells(i + 1, 1).Value = iZufallssticker
i = i + 1
End If
Loop
End Sub