Problem Cut and Paste
25.03.2008 15:09:00
Düppi
in meiner Datei habe ich folgenden Code, der es mir ermöglichen soll, nur Inhalte und keine Zellformatierungen zu kopieren. Das funktioniert beim Copy and Paste sehrwohl, nur beim Cut and Paste kommt, wenn ich "On Error Resume Next" auskommentiere, der Laufzeitfehler 1004.
Wie kann ich es hinbekommen, ohne Formatübertragungen nach Kopieren UND nach Ausschneiden zu kopieren? Ich bitte um Rat, sagt und dankt ein ratloser Düppi.
Private Sub Workbook_Open()
With Application
.OnKey "^v", "StrgV"
End With
Sub StrgV()
On Error Resume Next
ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub