ich habe mal wieder ein Problemchen:
Mit folgendem Code möchte ich eine neue Arbeitsmappe erstellen, aus dem Hintergrund eine weitere Mappe öffnen und in dieser einige Spalten umstellen/filtern um das Ergebnis dann in die erste Mappe zu kopieren.
Sub MP_genUpdates_Click()
Dim FSyObjekt As Object, FObekt As Object, wsT As Worksheet, LZ As Double, assemble As Variant
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set FSyObjekt = CreateObject("Scripting.FileSystemObject")
Workbooks.Add
ActiveWorkbook.Sheets(1).Name = "Serial MP_Masterupdate"
Set wsT = Sheets(1)
Sheets(3).Delete
Sheets(2).Delete
Set assemble = GetObject("P:\...\SA_shared_reference.xls")
assemble.Sheets("SA-MP_Shared_reference").Columns("BC:BC").Insert shift:=xlToRight
assemble.Sheets("SA-MP_Shared_reference").Cells(1, 55).Value = "BTE involved"
assemble.Sheets("SA-MP_Shared_reference").Columns("BE:BE").Insert shift:=xlToRight
assemble.Sheets("SA-MP_Shared_reference").Cells(1, 57).Value = "FAL involved"
assemble.Sheets("SA-MP_Shared_reference").Columns("AU:AU").Insert shift:=xlToRight
assemble.Sheets("SA-MP_Shared_reference").Cells(1, 47).Value = "ESB-NCF involved"
assemble.Sheets("SA-MP_Shared_reference").Columns("AU:AU").Insert shift:=xlToRight
assemble.Sheets("SA-MP_Shared_reference").Cells(1, 47).Value = "ESB-FAF involved"
Dim Liste As Range
Set Liste = assemble.Sheets("SA-MP_Shared_reference").Range("A1:BF1")
Liste.AutoFilter
Liste.AutoFilter Field:=8, Criteria1:="EC" 'Eng Leader Center to EC
Liste.AutoFilter Field:=22, Criteria1:="2015" 'Year-CIN Creation Date to 2015
Liste.AutoFilter Field:=40, Criteria1:="Y" 'Corrective to Y
Liste.AutoFilter Field:=42, Criteria1:="Y" 'Extended Flow to Y
Set Liste = Nothing
' Blatt einfügen nach erstem Blatt und Inhalt von anderere Datei kopieren
assemble.Worksheets("SA-MP_Shared_reference").UsedRange.Copy
wsT.Paste
assemble.Close savechanges:=False
Set assemble = Nothing
in der GetObject zeile erhalte ich jedoch immer "Laufzeitfehler 1004: die Select-Methode des Worksheet-Objekts konnte nicht ausgeführt werden".
Kann mir jemand aus der Patsche helfen...? :)