Mijn vraag
Laat ik beginnen aan te geven dat ik totaal geen ervaring heb met VBA in Excel :-)
Wat ik wil is een begin en einddatum opgeven in bijvoorbeeld A1 en A2 en als ik dit gedaan heb dan wordt in andere kolom (B of C) alle jaartallen tussen begin en einddatum getoond
Wat ik heb is dit:
Sub p()
Dim FirstYear As Date
Dim LastYear As Date
Dim TotYears As Long
Dim i As Long
FirstYear = Range("A1").Value
LastYear = Range("A2").Value
TotYears = DateDiff("yyyy", FirstYear, LastYear)
For i = 1 To TotYears
Cells(i, 3).Value = FirstYear
FirstYear = DateAdd("yyyy", 1, FirstYear)
Next
End Sub
Dit werkt maar alleen als ik hem handmatig uitvoer (F5) op een of andere manier wil ik dit dus in een Worksheet.Change event zetten.
Laat ik beginnen aan te geven dat ik totaal geen ervaring heb met VBA in Excel :-)
Wat ik wil is een begin en einddatum opgeven in bijvoorbeeld A1 en A2 en als ik dit gedaan heb dan wordt in andere kolom (B of C) alle jaartallen tussen begin en einddatum getoond
Wat ik heb is dit:
Sub p()
Dim FirstYear As Date
Dim LastYear As Date
Dim TotYears As Long
Dim i As Long
FirstYear = Range("A1").Value
LastYear = Range("A2").Value
TotYears = DateDiff("yyyy", FirstYear, LastYear)
For i = 1 To TotYears
Cells(i, 3).Value = FirstYear
FirstYear = DateAdd("yyyy", 1, FirstYear)
Next
End Sub
Dit werkt maar alleen als ik hem handmatig uitvoer (F5) op een of andere manier wil ik dit dus in een Worksheet.Change event zetten.