Dim nArray(32) As Long
  Dim nTemp(32) As Long
  Dim nIndex As Long
  Dim i As Long
 
  Randomize -Timer
  Do
    nIndex = Int(32 * Rnd + 1)
    If nTemp(nIndex) = 0 Then
      i = i + 1
      nArray(i) = nIndex
      nTemp(nIndex) = 1
    End If
  Loop Until i = 32
 
  For i = 1 To 32
    Debug.Print i, nArray(i)
  Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de