For i = 0 To upBound
            Do
                vorhanden = False
                rndZahl = CInt(Int((upBound - 0 + 1) * Rnd( _
                  Environment.TickCount) + 0))
                For j = 0 To upBound
                    If CInt(indArr(j, 3)) = CInt(rndZahl) Then
                        vorhanden = True
                        Exit For
                    End If
                Next
            Loop Until vorhanden = False
 
            indArr(i, 3) = rndZahl
            indArr(rndZahl, 2) = 0 'zahl aus dimension 2 löschen
        Next