Paste sichtbare Zellen Fehler 1004

Question

Ich versuche, Code zu schreiben, der ein Blatt mit einer Tabelle und nur die sichtbaren Zellen in ein neues Arbeitsblatt einfügen und die Kopfzeile einfrieren wird. Ich bekomme immer eine 1004 Paste-Methode von Workseet-Klasse fehlgeschlagen Fehler, markiert der Debugger activesheet.paste als das Problem. Ich bin ziemlich neu in VBA, also nicht sicher, warum ich einen Fehler bei einem so scheinbar einfachen Befehl bekomme?

Sub Macro6() 
' 
' Macro6 Macro 
' 

' 
    Sheets("Midwest Log").Select 
    Range("A1").Select 
    Selection.SpecialCells(xlCellTypeVisible).Select 
    Selection.Copy 
    Sheets.Add After:=Sheets(Sheets.Count) 
    Sheets(Sheets.Count).Name = "MW Log" 
    Application.CutCopyMode = False 
    Sheets("MW Log").Paste 
    Columns("A:I").Select 
    Columns("A:I").EntireColumn.AutoFit 
    Rows("4:4").Select 
    ActiveWindow.FreezePanes = True 
    Range("A1").Select 
End Sub 

Answer 1

Nun, Sie haben Application.CutCopyMode = False dort. Entfernen Sie es und Sie sollten in Ordnung sein.

Ich nahm mir die Freiheit, die Auswahl zu klären. Auswahlmöglichkeiten werden in Excel VBA als sehr schlecht angesehen, da sie langsam und unzuverlässig sind. Sie können in der Regel von ihnen ziemlich leicht von

something.Select 
Selection.dosomething 

mit

something.dosomething 

war aber ein wenig kompliziert Das Einfrieren ersetzen loszuwerden, und ich bin nicht sicher, ob es der ideale Weg ist entweder.

Sheets("Midwest Log").Range("A1").SpecialCells(xlCellTypeVisible).Copy 
Sheets.Add After:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Name = "MW Log" 
Sheets("MW Log").Paste 
Columns("A:I").AutoFit 
ActiveWindow.SplitRow = 3 
ActiveWindow.FreezePanes = True