Start Loop in "A2"

[silentwolf]

Hi guys,

I got this code from a a gast user of a different forum. "Volker"

I did modify it a little but seam not be able to get the loop started at "A2" rather then "A1".

Sub FillDaysOfMonth()
    Dim datStart As Date
    Dim datEnd As Date
    Dim d As Date
    
    Columns(1).ClearContents
    Range("A1").Value = "Datum"
    
    datStart = DateSerial(Year(Cells(1, 5)), Month(Cells(1, 5)), 1)
    datEnd = DateSerial(Year(datStart), Month(datStart) + 1, 1) - 1
    
    For d = datStart To datEnd
        Cells(Day(d), 1) = d
    Next d
End Sub

does anyone know how I need to change this code above to make that work?

Many thanks"

 

[Rick Rothstein]

Hi guys,

I got this code from a a gast user of a different forum. "Volker"

I did modify it a little but seam not be able to get the loop started at "A2" rather then "A1".

Sub FillDaysOfMonth()
    Dim datStart As Date
    Dim datEnd As Date
    Dim d As Date
    
    Columns(1).ClearContents
    Range("A1").Value = "Datum"
    
    datStart = DateSerial(Year(Cells(1, 5)), Month(Cells(1, 5)), 1)
    datEnd = DateSerial(Year(datStart), Month(datStart) + 1, 1) - 1
    
    For d = datStart To datEnd
        Cells(Day(d) [B][COLOR="#FF0000"]+ 1[/COLOR][/B], 1) = d
    Next d
End Sub

does anyone know how I need to change this code above to make that work?

Maybe adding what I show in red will do it.

 

[silentwolf]

Hi Rick,

yes it works fine!
I tried with Cells(Day(d)1 ,1)=d
before...

hmm never stop learning