Tilfældige tal, uden gengangere

Denne makro genererer 36 tilfældige tal som ikke er ens.


Sub Generer_Tal()
Application.ScreenUpdating = False
Range("C:C").Clear
sluttal = 36
start:
For I = J + 1 To sluttal
tæller = 2
    While tæller > 1
        Range("C" & I).Formula = "=slumpmellem(1,36)"
        tæller = WorksheetFunction.CountIf(Range("C1:C" & sluttal), Range("C" & I))
        antal = antal + 1
    Wend
    Range("C" & I).Value = Range("C" & I)
    J = J + 1
Next I
Range("A1") = antal
Application.ScreenUpdating = True
End Sub

Når jeg køre makroen, så låser den sig fast.

De vikede efter jeg fik installeret Analysis ToolPak. Så jeg siger tak for det.

Øh selvtak, men du syntes selv du skulle have pointene :-(

Undskyld, men jeg er ny. Så jeg skal nok lægge nogle point ud til dig.
Så må jeg se om jeg kan finde ud af at give dig pointerne.

Helt iorden. Det anede mig at det var der skoen trykkede :-)