|
Hallo zusammen,
habe ein Problem mit Dynamic filter in Excel 2010 VBA. Hoffe ihr könnt mehr helfen:)
1. Workbook1 offen
2. Makro in Workbook1 öffnet Workbook2
3. Setze Filter in Workbook2 basierend auf Zelle x in Workbook1
Irgendwie erkennt VBA die Daten in in Zelle in Workbook1 nach dem Öffnen des Workbook2 nicht mehr.
Public thisworkbook As String
Sub test2()
thisworkbook = ActiveWorkbook.Name
Dim arr As String
arr = Workbooks(thisworkbook).Sheets("REPORTS").Cells(1, 22)
Dim arr2 As String
arr2 = Workbooks(thisworkbook).Sheets("REPORTS").Cells(1, 23)
End Sub
Sub copy_masterdata16()
Call test2
Workbooks.Open Filename:= _
"\\xxxx.xlsx" _
, UpdateLinks:=0
Sheets("sap_data").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=27, Criteria1:= _
arr2, Operator:=xlOr, Criteria2:="=SCPC"
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=8, Criteria1:=arr
|