ThisWorkbook - Definition
11.08.2017 14:50:53
Lena
ich werde glaube ich langsam blind...
Ich habe zwei Workbooks mit denen ich arbeite. In dem einen (Master File mit Makro) wird in einem Tab nach einem Land gefiltert (welches ich durch eine Liste vom Nutzer definieren lasse und dafür einen loop eingefügt habe). Die gefilterte Tabelle wird kopiert und in ein Template eingefügt. Bei dem "Anrufen" der Dateien habe ich aber schon eine Fehlermeldung in der Select-Zeile(fett markiert)... Die Fehlermeldung lautet:"Laufzeitfehler '1004': Die Select-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.".
Jetzt die Frage: Habe ich bei der Definition mit ThisWorkbook schon was falsch gemacht? Ich sehe es nicht mehr...
Vielen lieben Dank für eure Hilfe!!
Lena
Sub ReferTo()
'## Define both workbooks first and open Template:
Dim x As Workbook
Dim y As Workbook
Set x = ThisWorkbook
Set y = Workbooks.Open("H:\Daten\Open Order Report\NEW\Open Order Report_Country_MASTER_v2.xltx")
'Country Loop
x.Sheets("Country Report Generator").Select
Cty_Count = Cells(65536, 2).End(xlUp).Row
For B = 2 To Cty_Count
ThisWorkbook.Sheets("Country Report Generator").Select
CTY = Cells(B, 2).Value
'Definition
x.Sheets("Original Data from SAP").Select
lr = Cells(65536, 1).End(xlUp).Row
lc = Cells(1, 255).End(xlToLeft).Column
'Filters for a country, copies and pastes into Worksheet Country Report
ThisWorkbook.Sheets("Original Data from SAP").Select
ActiveSheet.Range(Cells(1, 1), Cells(lr, lc)).AutoFilter Field:=2, Criteria1:=CTY
'Copy and paste and set filter
Range(Cells(1, 1), Cells(lr, lc)).Select
Selection.Copy
y.Sheets("raw data").Range("A1").PasteSpecialActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Range(Cells(1, 1), Cells(lr, lc)).AutoFilter Field:=2