pastespecial nach cut erz. Fehler
23.07.2015 20:35:04
P-Quest
mit folgendem Code kopiere ich Daten von a nach b.
Sub abc()
With wsQuelle
'.Range(.Cells(5, 1), .Cells(lngLastRow, 10)).Copy wsZiel.Range("A1") 'Titelzeile _
kopieren
.Range(.Rows(6), .Rows(lngLastRow)).Cut 'Daten ausschneiden
With wsZiel.Range("A1")
.PasteSpecial (xlPasteValues) 'Daten als Werte einfügen
.PasteSpecial (xlPasteFormats) 'Formate übernehmen
End With
End With
End Sub
Laufzeitfehler 1004
Die Methode pastespecial des Range Objects konnte nicht ausgeführt werden.
Der gleiche Code mit copy funktioniert.
Könnte es daran liegen, das es sich bei der Quelle um das Filterergebnis einer "intelligente" Tabelle handelt?
Oder ist es mal wieder einer meiner dummen Logikfehler?
Was auch immer, über Hilfe freu ich mich...wie immer :-)
Gruß,
Peter