Sub auflisten()
Dim x As Long
For x = 1 To 366
Cells(x, 1) = DateSerial(Year(Date), 1, 1) - 1 + x
Next x
End Sub
Sub auflisten()
Dim blnSchaltjahr As Boolean
blnSchaltjahr = (Day(DateSerial(Year(Date), 2, 28) + 1) = 29)
Dim x As Long
For x = 1 To 365 - blnSchaltjahr
Cells(x, 1) = DateSerial(Year(Date), 1, 1) - 1 + x
Next x
End Sub
Sub GanzesJahr()
With Range("A1:A365")
.FormulaR1C1 = "=DATE(YEAR(TODAY())-1,12,31)+ROW()"
.Value = .Value
End With
End Sub
Formel in z.B. D1 =A1+7-WOCHENTAG(A1;11)
in D2 =WENN(JAHR(D1+7)=JAHR($A$1);D1+7;"")
WOCHENTAG(A1;11)
[a1:a365]=[date(year(today()),1,row(1:365))]
[a1:a365]=[date(year(today()),1,row(1:365))]
=DATUM(A1;1;SEQUENZ(365+ISTZAHL("29.2."&A1)))