Bereich kann nicht ausgewählt werden

Question

Ich erstelle einen VBA-Makro, um einen gefilterten Datenbereich in eine Vorlage zu ziehen. Ich bekomme immer den Fehler Range nicht definiert.

Ich habe versucht, das Macro Recording Tool in Excel zu verwenden, aber wenn ich versuche, es mit meinem geschriebenen Code zu verwenden, bricht es sofort.

'filter to correct range 
ActiveSheet.Range("$A$1:$X$1647").AutoFilter Field:=14, Criteria1:="-333" 
ActiveSheet.Range("$A$1:$X$1647").AutoFilter Field:=17, Criteria1:= _ 
    "rslicenceHolder" 

'Copy Results and Paste into Template 
Range("A1082:T1082").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
Active.Workbook("Sample Chasers Template .xlsx").Activate 
Sheets("RS Chasers").Select 
Range("A4").Select 
ActiveSheet.Paste 

Answer 1

Ihr Verweis auf die Arbeitsmappe "Sample Chasers Template .xlsx" ist falsch. Versuchen Sie folgendes:

ActiveSheet.Range("$A$1:$X$1647").AutoFilter Field:=14, Criteria1:="-333" 
ActiveSheet.Range("$A$1:$X$1647").AutoFilter Field:=17, Criteria1:= _ 
    "rslicenceHolder" 

'Copy Results and Paste into Template 
Range("A1082:T1082").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
'Active.Workbook(Sample Chasers Template .xlsx").Activate 
Workbooks("Sample Chasers Template .xlsx").Activate 

Sheets("RS Chasers").Select 
Range("A4").Select 
ActiveSheet.Paste 

Ich sollte erwähnen, aber, dass Sie immer noch kopiert werde und Einfügen A1082: T1082 und ab, unabhängig davon, wo Ihre gefilterten Ergebnisse tatsächlich sind. Sie können auch wie das Stück etwas ersetzen:

Range("A1:T1").Select 
Range(Selection, Selection.End(xlDown)).Select 

Answer 2

bearbeitet tatsächlichen Arbeitsmappe Namen enthalten, wie OP angegeben

vorausgesetzt, Sie kopieren möchten/einfügen alle Spalten A bis T gefilterten Zellen mit Ausnahme von Header:

Dim repWB as Workbook, tempWb as Workbook 

Set tempWb = Workbooks.Open("C:\Desktop\Template.xlsx") '<--| change "C:\Desktop\" to actual path of template workbook 
Set repWB = Workbooks.Open("C:\Desktop\Report.xlsx") '<--| change "C:\Desktop\" to actual path of report workbook 
With repWB.Range("$A$1:$X$1647") 
    .AutoFilter Field:=14, Criteria1:="-333" 
    .AutoFilter Field:=17, Criteria1:="rslicenceHolder" 
    If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then .Resize(.Rows.count - 1, 20).Offset(1).SpecialCells(xlCellTypeVisible).Copy    tempWb.Sheets("RS Chasers").Range("A4") 
    .Parent.AutoFilterMode = False 
End With 

Answer 3

Der folgende Code wird die gefilterte Tabelle aus Ihrem Blatt auf „RS Chasers“ Blatt in „Beispiel Chasers Vorlage .xlsx“ Arbeitsmappe kopieren.

Hinweis: versuchen ActiveSheet mit zu vermeiden, Select und Selection und stattdessen voll qualifizierten Objekte verwenden.

-Code

Option Explicit 

Sub CopyFilterData() 

Dim Rng As Range, VisRng As Range 

With Worksheets("Sheet1") '<-- modify "Sheet1" to your sheet's name 
    Set Rng = .Range("$A$1:$X$1647") ' <-- better use referenced sheet than ActiveSheet 

    Rng.AutoFilter Field:=14, Criteria1:="-333" 
    Rng.AutoFilter Field:=17, Criteria1:="rslicenceHolder" 

    Set VisRng = Rng.Resize(Rng.Columns(17).SpecialCells(xlCellTypeVisible).Cells.Count, 20).Offset(1, 0) '<-- set visible Range to filtered range 

    VisRng.Copy Destination:=Workbooks("Chasers Template.xlsx").Worksheets("RS Chasers").Range("A4") '<-- copy >> paste in 1 line 
End With 

End Sub