Array aussortieren

''Letzte Zeile
LNEEinnahmenlZeile = Worksheets("Einnahmen").Cells(Rows.Count, 4).End(xlUp).Row
arr = Sheets("Einnahmen").Range("A2:H" & LNEEinnahmenlZeile)
Set Dic1 = CreateObject("Scripting.Dictionary")
'Datum sammeln
For L = 1 To UBound(arr)
If Year(arr(L, 2)) = Year("1.1.2012") Then
For B = 1 To LBound(arr)
Tmp = arr(L, B)
Dic1(L, B) = Tmp
Next B
End If
Next L
K = Dic1.keys
I = Dic1.items
'Umschaufeln
'Ausgeben
Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Clear
Sheets("Tabelle1").Range("a1").Resize(UBound(Dic1, 1), UBound(Dic1, 2)) = Dic1
End Function