Dim x(1 To 49) As Long, i As Long
 
For i = 1 To 1000000
   zahl = Fix(49 * Rnd + 1)
   x(zahl) = x(zahl) + 1
Next i
 
Dim min As Long, max As Long
min = 10000000
For i = 1 To 49
   If max < x(i) Then max = x(i)
   If min > x(i) Then min = x(i)
Next i