Makro in Excel-Fehler beim Einfügen

437
Zarina Akhtar

Ich filte eine Spalte und versuche dann, die Werte zu kopieren und einzufügen.

Ich erhalte jedoch die Fehlermeldung PasteSpecial Method of Range Class Failed

Sub DD() ' ' DD Macro '  ' Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8, Criteria1:="1" Columns("A:A").Select Selection.Copy ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8 Columns("I:I").Select ActiveSheet.Paste Range("I6").Select End Sub Sub dds() ' ' dds Macro '  ' Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8, Criteria1:="1" Columns("A:A").Select Selection.Copy ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8 Columns("I:I").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J9").Select Columns("I:I").EntireColumn.AutoFit Range("I6").Select Application.CutCopyMode = False End Sub

Der spezifische Fehler ist 

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

Ich verwende die Record-Makro-Funktion in Excel. Irgendwelche Ideen?

0
Setzen Sie Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False auf 1 Zeile, das _ bezeichnet einen Zeilenvorschub, der jedoch selbst auslöst. spikey_richie vor 6 Jahren 0
Versuchen Sie alternativ, Paste: = xlPasteValues ​​durch Paste: = xlValues ​​zu ersetzen spikey_richie vor 6 Jahren 0
Sie könnten einfach `Range (" I: I ") tun. Value = Range (" A: A "). Value", außer dass dies eine Weile dauern kann, da Sie eine ganze Spalte * kopieren. BruceWayne vor 6 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme