Cut Copy SpecialCells
Peter
es solle im gleichen Tabellenblatt ein Bereich (NUR WERTE) ausgeschnitten und verschoben werden.
Ich bekomme aber immer Laufzeitfehler 1004
Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Public Sub AusschneidenNurWert()
With ThisWorkbook.Worksheets("Daten")
.Range("F6:K10").Cut
.Range("F5:K9").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Anzeige