Sub trening_datasett()


Dim i As Integer
Dim a As Integer
i = 1000

    For x = 2 To 52
        i = i + 1

        m = Int((200 - 20 + 1) * Rnd + 20)
        a = Int((3 - 1 + 1) * Rnd + 1)

        Cells(x, 1).Value = i

        ' I rad 1, 2 og 3 i kolonne 8 står de tre ulike aktivitetene (aerobic, jogging og faotball)
        Cells(x, 2).Value = Cells(a, 8).Value
        Cells(x, 3).Value = m


    Next x
End Sub