Generate a number of headers / macro

[blaksnm]

Hey guys
A1 value is (exmpl) 19 (= "n" - "n" will vary).
My example n=19 generates 19 schedule-headers in row 2 - starting from A2:

Periode 1 / Periode 2 / Periode 3 / Periode 4 / Periode 5 / ....... Periode 19


How will this be done in a macro?

 

[JamesW]

Hi there,

Try:

Sub test()
    n = Cells(1, 1).Value
    For i = 2 To n + 1
        Cells(1, i).Value = "Periode " & i - 1
    Next
End Sub

 

[VoG]

Try

Sub headers()
Dim i As Long
For i = 1 To Cells(1, 1).Value
    Cells(2, i).Value = "Period " & i
Next i
End Sub

 

[blaksnm]

Thanks both of you
This is perfect