Sub Genererårstall()
'
'Genererer en kolonne med årstall.
'Det forutsetter at makroen mottar rett datatype og lovlige verdier.
årstall = Range("Startår").Value
antallår = Range("Antallår").Value
rekke = Range("Startcelle").Row
kolonne = Range("Startcelle").Column
'Genererer årstall
    'Beregner iterasjon
    For årsTeller = 1 To antallår

        'Utfører klargjort iterasjon
        Cells(rekke, kolonne).Value = årstall

        'Klargjør neste iterasjon
        rekke = rekke + 1
        årstall = årstall + 1

    Next årsTeller
End Sub