für den Filter verwende ich folgenden Codeteil. Der Code sucht in Zeile 1 die Überschrift "BDFE" und filtert dann nach dem Jahr 2012 (der fette Teil kommt vom Makrorekorder). Funktioniert soweit.
Was ich haben sollte ist, dass das Jahr 2012 im Teil "12/31/2012" von der Zelle AZ1 ausgelesen wird. Dort steht z.B. die Zahl 2010!
Dim Rafound As Range
Set Rafound = Range(wksTab1.Cells(1, 1), wksTab1.Cells(1, LCol1)).Find("BDFE", , , xlWhole)
If Not Rafound Is Nothing Then
Range(wksTab1.Cells(1, 1), wksTab1.Cells(LzB, LCol1)).AutoFilter Field:=Rafound. _
Column, Operator:= _
xlFilterValues, Criteria2:=Array(0, "12/31/2012")
End If
Besten Dank für Euere Hilfe und Servus, Walter