Datum von gestern
18.03.2015 09:09:10
gestern
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