Sub
UpdateOverview()
Dim
Sachnummer
As
Range
Application.ScreenUpdating =
False
Application.DisplayAlerts =
False
Set
ext_wb = Workbooks.Open(ThisWorkbook.Path &
"\PSI_FCCL_daily.XLSM?csf=1"
)
ext_wb.Sheets(
"RDD"
).Range(
"D12"
).
Select
ext_wb.Sheets(
"RDD"
).Selection.AutoFilter
ext_wb.Sheets(
"RDD"
).Range(
"$A$12:$BD$30587"
).AutoFilter Field:=4, Criteria1:= _
"A26361-D3417-Z340-1-8N19"
ext_wb.Sheets(
"RDD"
).Range(
"T14"
).Copy
ThisWorkbook.Sheets(
"Material"
).Range(
"M335"
).PasteSpecial
ext_wb.Close
Application.DisplayAlerts =
True
Application.ScreenUpdating =
True
End
Sub