Excel-Fehler 400 beim Kopieren auf ein anderes Blatt

Question

Ich habe 100 verschiedene Lösungen zur Behebung dieses Fehlers angeschaut, der immer wieder auftaucht. Es ist eine Popup-Box mit nur der Nummer "400" und einem OK-Button.

das Kopierblatt im von wird „Front End“ genannt sieht

Mein Code wie folgt aus:

Sub transfer() 

range("C2").Select 
Selection.Copy 
Worksheets("Raw Data").Select 
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row 
range("A" & lMaxRows + 1).Select 
Selection.Paste 

End Sub 

Im gerade versucht, den Dreh Verschieben von Daten von einem Blatt zum nächsten leeren Zeile zu erhalten in einem anderen Blatt, aber immer wieder diesen Fehler bekommen. Jede Hilfe würde sehr geschätzt werden, da ich VBA sehr neu bin

Answer 1

VBA wird verwenden, was auch immer das aktive Blatt ist, wenn Sie die Arbeitsmappe/das Arbeitsblatt, das Sie verwenden möchten, nicht vollständig qualifiziert haben. Probieren Sie etwas wie folgt aus:

Sub transfer() 
Dim sourceSheet as Worksheet : Set sourceSheet = ThisWorkbook.Worksheets("Front End") 
Dim destSheet as Worksheet : Set destSheet = ThisWorkbook.Worksheets("Raw Data") 
lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row 

destSheet.Range("A" & lMaxRows + 1).Value = sourceSheet.range("C2").Value 

End Sub 

Für einen Wert direkt von einem Ort zum anderen zu kopieren Sie nicht brauchen, kopieren, einfügen oder wählen zu verwenden; Sie können einfach den Wert von eins auf den Wert von einem anderen setzen.

Answer 2

ändern Selection.Paste-Selection.PasteSpecial Paste:=xlPasteValues scheint für mich arbeiten:

Sub transfer() 

Range("C2").Select 
Selection.Copy 
Worksheets("Raw Data").Select 
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row 
Range("A" & lMaxRows + 1).Select 
'Selection.Paste 
Selection.PasteSpecial Paste:=xlPasteValues 

End Sub 

Referenz: Copying and pasting data using VBA code