Start Loop in "A2"

silentwolf

Well-known Member
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".

Code:
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

MrExcel MVP
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".

Code:
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.
 

Some videos you may like

This Week's Hot Topics

  • Get External Data (long shot question!)
    This is likely a long shot but I am wondering if it is at all possible for Excel to somehow 'change' the contents of a URL that is being linked to...
  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • Cell Formatting
    Good Morning, I need to format a few different cells in the following manners: A1 has to always add a colon (:) after whatever is typed in by a...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • Workbook_Change stopped working !
    I am working on an app to speed up & automate processing of Credit Cards statements. After data is input from a CSV file, it is presented to the...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...
Top