Office: Datum von gestern

Morgen zusammen. *Smilie
Ich habe folgenden Code mit den Macrorecorder erstellt. Ich möchte aber das mir immer die Liste von gestern ausgegeben wird. Wie bekomm ich das mit dem Datum hin? Mit Date-1 funzt das nicht oder ich setze es falsch ein. Kann mir jemand helfen?

Sub Makro2()
'
' Makro2 Makro
'

'
Application.ScreenUpdating = False

Sheets("Personalliste").Select
ActiveSheet.ListObjects("Personal_Liste").Range.AutoFilter Field:=11, _
Criteria1:="Werk 2"
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveSheet.ListObjects("Personal_Liste").Range.AutoFilter Field:=16, _
Criteria1:="Werker"
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveSheet.ListObjects("Personal_Liste").Range.AutoFilter Field:=20, _
Operator:=xlFilterValues, Criteria2:=Array(2, "3/16/2015")
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 22
ActiveSheet.ListObjects("Personal_Liste").Range.AutoFilter Field:=33, _
Criteria1:="2024023000"
ActiveWindow.LargeScroll ToRight:=-2
Range("I156276:I252831").Select
Selection.Copy
Sheets("Tabelle1").Select
Application.Goto Sheets("Tabelle1").Range("G5")
ActiveSheet.Paste
Range("H8").Select
Application.ScreenUpdating = True

End Sub

:)

 

Oh man...ich sag da nichts zu. Kannst ja meinen Beitrag löschen ist kein Thema *wink.gif*

 

\@Hajo
Die Lösung die du im anderen Forum geschrieben hast geht leider nicht. Findet keinen Wert. Muss ich evtl erstmal definieren was bei mir Date ist? Das Problem macht mich echt wahnsinnig..so schwer kann das doch nicht sein