Gruppe
Matrix
Problem
In eine Jahres-/Monatsmatrix sollen Arrayformeln zur Ermittlung der jeweiligen Werte aus einer Datentabelle eingetragen werden.
StandardModule: Modul1
Sub DatenFiltern()
Dim iYear As Integer, iMonth As Integer
For iYear = 2001 To 2004
For iMonth = 1 To 12
Cells(iMonth + 1, iYear - 1997).FormulaArray = _
"=sum((year(a1:a100)=" & iYear & ")" & _
"*(month(a1:a100)=" & iMonth & ")*b1:b100)"
Next iMonth
Next iYear
End Sub