Sub ZufallsauswahlTueteSticker()
Const anzMotive As Integer = 20
Const anzStickerInTuete As Integer = 5
Dim sticker() As Integer
ReDim sticker(anzStickerInTuete)
Dim i As Integer, j As Integer, zufallssticker As Integer
Dim StickerSchonVorhanden As Boolean
For i = 0 To anzStickerInTuete - 1
sticker(i) = 0
Next i
i = 0
Do Until i >= anzStickerInTuete
Randomize
zufallssticker = CInt(Rnd() * anzMotive) + 1
StickerSchonVorhanden = False
For j = 0 To i - 1
If sticker(j) = zufallssticker Then
StickerSchonVorhanden = True
Exit For
End If
Next j
If StickerSchonVorhanden = False Then
sticker(i) = zufallssticker
Debug.Print "Sticker " & i + 1 & ": " & zufallssticker
i = i + 1
End If
Loop
End Sub